[Bast-commits] r7925 - DBIx-Class/0.08/trunk/lib/DBIx/Class/Schema

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-11-19 11:04:21 +0000 (Thu, 19 Nov 2009)
New Revision: 7925

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Schema/Versioned.pm
Log:
Bail out eary in Versioned if no versioning checks are requested

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Schema/Versioned.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Schema/Versioned.pm	2009-11-19 10:10:18 UTC (rev 7924)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Schema/Versioned.pm	2009-11-19 11:04:21 UTC (rev 7925)
@@ -472,6 +472,10 @@
   my ($self, $args) = @_;
 
   $args = {} unless $args;
+
+  # useful when connecting from scripts etc
+  return if ($args->{ignore_version} || ($ENV{DBIC_NO_VERSION_CHECK} && !exists $args->{ignore_version}));
+
   $self->{vschema} = DBIx::Class::Version->connect(@{$self->storage->connect_info()});
   my $vtable = $self->{vschema}->resultset('Table');
 
@@ -486,8 +490,6 @@
     }
   }
 
-  # useful when connecting from scripts etc
-  return if ($args->{ignore_version} || ($ENV{DBIC_NO_VERSION_CHECK} && !exists $args->{ignore_version}));
   my $pversion = $self->get_db_version();
 
   if($pversion eq $self->schema_version)