diff options
Diffstat (limited to 'ext/B/B/Deparse.pm')
| -rw-r--r-- | ext/B/B/Deparse.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index a9abfec268..6bb2f683f2 100644 --- a/ext/B/B/Deparse.pm +++ b/ext/B/B/Deparse.pm @@ -3588,7 +3588,7 @@ sub const { return $self->maybe_parens("\\" . $self->const($ref, 20), $cx, 20); } elsif ($sv->FLAGS & SVf_POK) { my $str = $sv->PV; - if ($str =~ /[^ -~]/) { # ASCII for non-printing + if ($str =~ /[[:^print:]]/) { return single_delim("qq", '"', uninterp escape_str unback $str); } else { return single_delim("q", "'", unback $str); |