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

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-11-23 00:28:50 +0000 (Mon, 23 Nov 2009)
New Revision: 7936

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Schema/Versioned.pm
Log:
Fix ::Versioned regression introduced in r7925

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-23 00:18:28 UTC (rev 7935)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Schema/Versioned.pm	2009-11-23 00:28:50 UTC (rev 7936)
@@ -473,12 +473,12 @@
 
   $args = {} unless $args;
 
+  $self->{vschema} = DBIx::Class::Version->connect(@{$self->storage->connect_info()});
+  my $vtable = $self->{vschema}->resultset('Table');
+
   # 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');
-
   # check for legacy versions table and move to new if exists
   my $vschema_compat = DBIx::Class::VersionCompat->connect(@{$self->storage->connect_info()});
   unless ($self->_source_exists($vtable)) {