[Bast-commits] r3797 - DBIx-Class/0.08/trunk/lib/DBIx/Class

[castaway at dev.catalyst.perl.org]

Author: castaway
Date: 2007-09-29 23:37:07 +0100 (Sat, 29 Sep 2007)
New Revision: 3797

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Schema.pm
Log:
Fix "redefined" errors resulting from loading a Schema twice.


Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Schema.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Schema.pm	2007-09-29 00:35:55 UTC (rev 3796)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Schema.pm	2007-09-29 22:37:07 UTC (rev 3797)
@@ -600,6 +600,7 @@
   Class::C3->reinitialize();
   {
     no strict 'refs';
+    no warnings 'redefine';
     foreach my $meth (qw/class source resultset/) {
       *{"${target}::${meth}"} =
         sub { shift->schema->$meth(@_) };