diff options
| author | Karl Williamson <public@khwilliamson.com> | 2013-04-05 12:21:21 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2013-09-07 10:36:08 -0600 |
| commit | a8162dcb747b0111e1d4c33e5591e6112f2fccd7 (patch) | |
| tree | 58434d9c21dcb16dfee6f39ba025f9da66305c91 /dist/Data-Dumper | |
| parent | 75ad363834ffce41b3b36c2c8f8e709ba5b66bca (diff) | |
| download | perl-a8162dcb747b0111e1d4c33e5591e6112f2fccd7.tar.gz | |
Data-Dumper/Dumper.pm: An EBCDIC fix
Change the range 0-7F to the portable equivalent [:ascii:]
Diffstat (limited to 'dist/Data-Dumper')
| -rw-r--r-- | dist/Data-Dumper/Dumper.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/dist/Data-Dumper/Dumper.pm b/dist/Data-Dumper/Dumper.pm index 7bc1ed9eb0..5b31d2cd47 100644 --- a/dist/Data-Dumper/Dumper.pm +++ b/dist/Data-Dumper/Dumper.pm @@ -718,7 +718,7 @@ sub qquote { local($_) = shift; s/([\\\"\@\$])/\\$1/g; my $bytes; { use bytes; $bytes = length } - s/([^\x00-\x7f])/'\x{'.sprintf("%x",ord($1)).'}'/ge if $bytes > length; + s/([[:^ascii:]])/'\x{'.sprintf("%x",ord($1)).'}'/ge if $bytes > length; return qq("$_") unless /[^ !"\#\$%&'()*+,\-.\/0-9:;<=>?\@A-Z[\\\]^_`a-z{|}~]/; # fast exit |