[Bast-commits] r4032 - DBIx-Class-Fixtures/1.000/trunk/lib/DBIx/Class/Fixtures

[captainL at dev.catalyst.perl.org]

Author: captainL
Date: 2008-02-05 15:23:51 +0000 (Tue, 05 Feb 2008)
New Revision: 4032

Modified:
   DBIx-Class-Fixtures/1.000/trunk/lib/DBIx/Class/Fixtures/SchemaVersioned.pm
   DBIx-Class-Fixtures/1.000/trunk/lib/DBIx/Class/Fixtures/Versioned.pm
Log:
fixed versioning stuff to work with new namespace magic

Modified: DBIx-Class-Fixtures/1.000/trunk/lib/DBIx/Class/Fixtures/SchemaVersioned.pm
===================================================================
--- DBIx-Class-Fixtures/1.000/trunk/lib/DBIx/Class/Fixtures/SchemaVersioned.pm	2008-02-05 14:42:02 UTC (rev 4031)
+++ DBIx-Class-Fixtures/1.000/trunk/lib/DBIx/Class/Fixtures/SchemaVersioned.pm	2008-02-05 15:23:51 UTC (rev 4032)
@@ -12,4 +12,7 @@
                             # debug                 => 1,
                            );
 
+sub schema_version {
+	return $DBIx::Class::Fixtures::SchemaVersioned::VERSION;
+}
 1;

Modified: DBIx-Class-Fixtures/1.000/trunk/lib/DBIx/Class/Fixtures/Versioned.pm
===================================================================
--- DBIx-Class-Fixtures/1.000/trunk/lib/DBIx/Class/Fixtures/Versioned.pm	2008-02-05 14:42:02 UTC (rev 4031)
+++ DBIx-Class-Fixtures/1.000/trunk/lib/DBIx/Class/Fixtures/Versioned.pm	2008-02-05 15:23:51 UTC (rev 4032)
@@ -33,7 +33,6 @@
   unless ($params->{version}) {
     return DBIx::Class::Exception->throw('You must pass a version to populate');
   }
-
   return $self->next::method(@_);
 }
 
@@ -45,11 +44,9 @@
   $DBIx::Class::Fixtures::SchemaVersioned::VERSION = $params->{version};
 
   my $schema = $self->next::method(@_);
-  $schema->schema_version($params->{version});
 
   # set the db version to the schema version
   $schema->upgrade(); # set version number
-
   return $schema;
 }