Change 31740 by [EMAIL PROTECTED] on 2007/08/21 08:25:55
Subject: patch for lib/ExtUtils/t/Constant.t which failed on EBCDIC
platform
From: Chun Bing Ge <[EMAIL PROTECTED]>
Date: Tue, 21 Aug 2007 14:37:25 +0800
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/lib/ExtUtils/Constant/Utils.pm#3 edit
Differences ...
==== //depot/perl/lib/ExtUtils/Constant/Utils.pm#3 (text) ====
Index: perl/lib/ExtUtils/Constant/Utils.pm
--- perl/lib/ExtUtils/Constant/Utils.pm#2~28567~ 2006-07-13
10:12:00.000000000 -0700
+++ perl/lib/ExtUtils/Constant/Utils.pm 2007-08-21 01:25:55.000000000 -0700
@@ -55,7 +55,7 @@
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;
}
End of Patch.
