X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=maint%2Fgen-tests.pl;h=48e71a710b68bcab40e48856b283144a88580347;hb=70350518bbb31e5ac22fb3cb73d3e17409fcd332;hp=f83fd55aef76f6cd8a813314499ce8562860d58b;hpb=d3c7b079f350a322f5849e5ee2f7a6ea7c654fb3;p=dbsrgits%2FDBIx-Class.git

diff --git a/maint/gen-tests.pl b/maint/gen-tests.pl
old mode 100644
new mode 100755
index f83fd55..48e71a7
--- a/maint/gen-tests.pl
+++ b/maint/gen-tests.pl
@@ -10,7 +10,7 @@ sub gen_tests {
     system("rm -f t/$dir/*.t");
     
     foreach my $test (map { m[^t/run/(.+)\.tl$]; $1 } split(/\n/, `ls t/run/*.tl`)) {
-        open(my $fh, '>', "t/$dir/${test}.t") or die $1;
+        open(my $fh, '>', "t/$dir/${test}.t") or die $!;
         print $fh <<"EOF";
 use Test::More;
 use lib qw(t/lib);
@@ -22,4 +22,4 @@ run_tests(DBICTest->schema);
 EOF
     close $fh;
     }
-}
\ No newline at end of file
+}