From: SADAHIRO Tomoyuki <BQW10602@nifty.com>
Date: Wed, 5 Apr 2006 21:13:02 +0000 (+0900)
Subject: Fix test portability on non-ASCII platforms
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bd64360a8955f3a23bb4b6cca55a669eadd40f3f;p=p5sagit%2Fp5-mst-13.2.git

Fix test portability on non-ASCII platforms

Subject: Re: lib/ExtUtils/t/Constant.t problem on z/OS
Message-Id: <20060405210426.F99D.BQW10602@nifty.com>

p4raw-id: //depot/perl@27720
---

diff --git a/lib/ExtUtils/t/Constant.t b/lib/ExtUtils/t/Constant.t
index c9a6a11..7c997fe 100644
--- a/lib/ExtUtils/t/Constant.t
+++ b/lib/ExtUtils/t/Constant.t
@@ -867,7 +867,7 @@ foreach (["perl", "rules", "rules"],
         ) {
   # 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:;<=>?\@A-Z[\\\]^_`a-z{|}~])/sprintf '\x{%X}', ord $1/ges;
   print "# \"$name\" => \'$expect\'\n";
   # Try to force this to be bytes if possible.
   if ($better_than_56) {