patch for lib/ExtUtils/t/Constant.t which failed on EBCDIC platform

Message-Id: <OFF86FB888.70D5EF70-ON4825733E.0021A246-4825733E.00246265@IBMCN>

p4raw-id: //depot/perl@31740

diff --git a/lib/ExtUtils/Constant/Utils.pm b/lib/ExtUtils/Constant/Utils.pm
index 2a0625e..0671701 100644 (file)
--- a/lib/ExtUtils/Constant/Utils.pm
+++ b/lib/ExtUtils/Constant/Utils.pm
@@ -55,7 +55,7 @@ sub C_stringify {
   s/\f/\\f/g;
   s/\a/\\a/g;
   if (ord('A') == 193) { # EBCDIC has no ^\0-\177 workalike.
-      s/([[:^print:]])/sprintf "\\x{%X}", ord $1/ge;
+      s/([[:^print:]])/sprintf "\\%03o", ord $1/ge;
   } else {
       s/([^\0-\177])/sprintf "\\%03o", ord $1/ge;
   }