Tweaked tt_schema
Mark Addison [Fri, 14 May 2004 00:45:55 +0000 (00:45 +0000)]
t/lib/Producer/BaseTest.pm

index a8cfe01..a0e76c2 100644 (file)
@@ -9,7 +9,7 @@ use base qw/SQL::Translator::Producer::TT::Base/;
 # Make sure we use our new class as the producer
 sub produce { return __PACKAGE__->new( translator => shift )->run; };
 
-sub tt_schema { local $/ = undef; return \<DATA>; }
+sub tt_schema { local $/ = undef; \<DATA>; }
 
 sub tt_vars { ( foo => "bar" ); }