(was Re: [PATCH] Re: What sort of Makefile.PL should

	h2xs write?)
Message-Id: <20011006214643.L38756@plum.flirble.org>

p4raw-id: //depot/perl@12346

diff --git a/utils/h2xs.PL b/utils/h2xs.PL
index e57779c..b8b91e8 100644 (file)
--- a/utils/h2xs.PL
+++ b/utils/h2xs.PL
@@ -1730,9 +1730,9 @@ $generate_code
 else {
   use File::Copy;
   copy ('fallback.c', '$constsfname.c')
-    or die "Can't copy fallback.c to $constsfname.c: $!";
+    or die "Can't copy fallback.c to $constsfname.c: \$!";
   copy ('fallback.xs', '$constsfname.xs')
-    or die "Can't copy fallback.xs to $constsfname.xs: $!";
+    or die "Can't copy fallback.xs to $constsfname.xs: \$!";
 }
 END