From: David Kamholz <dkamholz@cpan.org>
Date: Sat, 11 Feb 2006 21:15:29 +0000 (+0000)
Subject: fix typo
X-Git-Tag: v0.06000~61^2~41
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ba521d403abc0e3886a54a15fb178faeb40bfce6;p=dbsrgits%2FDBIx-Class.git

fix typo
---

diff --git a/maint/gen-tests.pl b/maint/gen-tests.pl
index f83fd55..0fc6180 100644
--- 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);