diff options
| author | Karl Williamson <khw@cpan.org> | 2015-03-14 21:50:49 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2015-03-19 10:20:40 -0600 |
| commit | 7d4d3e294c3a762ce652db1f04649d524a50ceb9 (patch) | |
| tree | 4f3f7063e8e1d3d7d0161a71222b6d02f231725f /lib/perl5db.pl | |
| parent | 4b6af431de82c30fc8df0d5d024cf77f6512e8b9 (diff) | |
| download | perl-7d4d3e294c3a762ce652db1f04649d524a50ceb9.tar.gz | |
lib/perl5db.pl: Generalize for EBCDIC
Diffstat (limited to 'lib/perl5db.pl')
| -rw-r--r-- | lib/perl5db.pl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index 47b9f4ad6e..cdb8884839 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -7588,7 +7588,9 @@ sub set_list { for my $i ( 0 .. $#list ) { $val = $list[$i]; $val =~ s/\\/\\\\/g; - $val =~ s/([\0-\37\177\200-\377])/"\\0x" . unpack('H2',$1)/eg; + no warnings 'experimental::regex_sets'; + $val =~ s/ ( (?[ [\000-\xFF] & [:^print:] ]) ) / + "\\0x" . unpack('H2',$1)/xaeg; $ENV{"${stem}_$i"} = $val; } ## end for $i (0 .. $#list) } ## end sub set_list @@ -8428,7 +8430,7 @@ sub print_help { # wide. If it's wider than that, an extra space will be added. $help_str =~ s{ ^ # only matters at start of line - ( \040{4} | \t )* # some subcommands are indented + ( \ {4} | \t )* # some subcommands are indented ( < ? # so <CR> works [BI] < [^\t\n] + ) # find an eeevil ornament ( \t+ ) # original separation, discarded |