From: Rafael Kitover <rkitover@cpan.org>
Date: Wed, 10 Aug 2011 08:45:13 +0000 (-0400)
Subject: minor fix for 5.8.1
X-Git-Tag: 0.07011~37
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=319016d6969cc51149640556053d12344e530372;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

minor fix for 5.8.1

sub {} returns the args it is passed on 5.8.1, so have to use
sub { return () } .
---

diff --git a/t/lib/dbixcsl_common_tests.pm b/t/lib/dbixcsl_common_tests.pm
index 6f73505..491f24e 100644
--- a/t/lib/dbixcsl_common_tests.pm
+++ b/t/lib/dbixcsl_common_tests.pm
@@ -1370,7 +1370,7 @@ sub create {
 
     $self->drop_tables;
 
-    my $make_auto_inc = $self->{auto_inc_cb} || sub {};
+    my $make_auto_inc = $self->{auto_inc_cb} || sub { return () };
     @statements = (
         qq{
             CREATE TABLE loader_test1s (