diff options
| author | SADAHIRO Tomoyuki <BQW10602@nifty.com> | 2006-04-06 06:13:02 +0900 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-04-05 12:19:11 +0000 |
| commit | bd64360a8955f3a23bb4b6cca55a669eadd40f3f (patch) | |
| tree | 2d290804ab07801372ec4a99788feb9405d1a839 /lib/ExtUtils | |
| parent | 95fb620ef224087688c9b9613d911f75160d4e8c (diff) | |
| download | perl-bd64360a8955f3a23bb4b6cca55a669eadd40f3f.tar.gz | |
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
Diffstat (limited to 'lib/ExtUtils')
| -rw-r--r-- | lib/ExtUtils/t/Constant.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/ExtUtils/t/Constant.t b/lib/ExtUtils/t/Constant.t index c9a6a11c77..7c997fe21b 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) { |