From: Chun Bing Ge <gecb@cn.ibm.com>
Date: Tue, 21 Aug 2007 14:37:25 +0000 (+0800)
Subject: patch for lib/ExtUtils/t/Constant.t which failed on EBCDIC platform
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f30abb560bc5cd98257c90a7ddaf247782fe1cf7;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;
   }