From: Karl Williamson <khw@khw-desktop.(none)>
Date: Mon, 19 Jul 2010 23:15:51 +0000 (-0600)
Subject: defsubs_h.PL: Use correct variable in error msg
X-Git-Tag: v5.13.4~159
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/270c16a11ea362c8a47be4760177651e703a531f

defsubs_h.PL: Use correct variable in error msg
---

diff --git a/ext/B/defsubs_h.PL b/ext/B/defsubs_h.PL
index 684ca26..98a3e8b 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";
 /*