Change 27720 by [EMAIL PROTECTED] on 2006/04/05 12:19:11
Fix test portability on non-ASCII platforms
Subject: Re: lib/ExtUtils/t/Constant.t problem on z/OS
From: SADAHIRO Tomoyuki <[EMAIL PROTECTED]>
Date: Wed, 05 Apr 2006 21:13:02 +0900
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/lib/ExtUtils/t/Constant.t#16 edit
Differences ...
==== //depot/perl/lib/ExtUtils/t/Constant.t#16 (text) ====
Index: perl/lib/ExtUtils/t/Constant.t
--- perl/lib/ExtUtils/t/Constant.t#15~26497~ 2005-12-26 15:50:14.000000000
-0800
+++ perl/lib/ExtUtils/t/Constant.t 2006-04-05 05:19:11.000000000 -0700
@@ -867,7 +867,7 @@
) {
# Flag an expected error with a reference for the expect string.
my ($string, $expect, $expect_bytes) = @$_;
- (my $name = $string) =~ s/([^ -~])/sprintf '\x{%X}', ord $1/ges;
+ (my $name = $string) =~ s/([^ !"#\$%&'()*+,\-.\/0-9:;<=>[EMAIL
PROTECTED]|}~])/sprintf '\x{%X}', ord $1/ges;
print "# \"$name\" => \'$expect\'\n";
# Try to force this to be bytes if possible.
if ($better_than_56) {
End of Patch.
