diff options
| author | Karl Williamson <khw@khw-desktop.(none)> | 2010-07-19 17:15:51 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-07-29 12:10:18 +0200 |
| commit | 270c16a11ea362c8a47be4760177651e703a531f (patch) | |
| tree | 987947d2294372cab7cd42355172cd6954521747 /ext | |
| parent | 78fecfc87dc006b17052d2f8cb36c0a881a19ba5 (diff) | |
| download | perl-270c16a11ea362c8a47be4760177651e703a531f.tar.gz | |
defsubs_h.PL: Use correct variable in error msg
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"; /* |