This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
defsubs_h.PL: Use correct variable in error msg
authorKarl Williamson <khw@khw-desktop.(none)>
Mon, 19 Jul 2010 23:15:51 +0000 (17:15 -0600)
committerRafael Garcia-Suarez <rgs@consttype.org>
Thu, 29 Jul 2010 10:10:18 +0000 (12:10 +0200)
ext/B/defsubs_h.PL

index 684ca26..98a3e8b 100644 (file)
@@ -7,7 +7,7 @@ my (undef, $headerpath) = @ARGV;
 my ($out) = __FILE__ =~ /(^.*)\.PL/i;
 $out =~ s/_h$/.h/;
 unlink $out if -l $out;
 my ($out) = __FILE__ =~ /(^.*)\.PL/i;
 $out =~ s/_h$/.h/;
 unlink $out if -l $out;
-open(OUT,">$out") || die "Cannot open $file:$!";
+open(OUT,">$out") || die "Cannot open $out:$!";
 print "Extracting $out...\n";
 print OUT <<"END";
 /*
 print "Extracting $out...\n";
 print OUT <<"END";
 /*