diff options
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/defsubs_h.PL | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/B/defsubs_h.PL b/ext/B/defsubs_h.PL index 684ca26fb0..98a3e8b3bb 100644 --- a/ext/B/defsubs_h.PL +++ b/ext/B/defsubs_h.PL @@ -7,7 +7,7 @@ my (undef, $headerpath) = @ARGV; 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"; /* |