Perlbrew caught a missed /usr/bin/perl invocation

[dbsrgits/DBIx-Class.git] / maint / gen-tests.pl

diff --git a/maint/gen-tests.pl b/maint/gen-tests.pl
old mode 100644 (file)
new mode 100755 (executable)
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
+}