diff options
Diffstat (limited to 'lib/ExtUtils/t/Constant.t')
| -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) { |