diff options
Diffstat (limited to 'ext/B/B/Deparse.pm')
-rw-r--r-- | ext/B/B/Deparse.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index 7710919453..19e798c5e0 100644 --- a/ext/B/B/Deparse.pm +++ b/ext/B/B/Deparse.pm @@ -3038,7 +3038,7 @@ sub re_uninterp_extended { # character escapes, but not delimiters that might need to be escaped sub escape_str { # ASCII, UTF8 my($str) = @_; - $str =~ s/(.)/ord($1)>255 ? sprintf("\\x{%x}", ord($1)) : $1/eg; + $str =~ s/(.)/ord($1) > 255 ? sprintf("\\x{%x}", ord($1)) : $1/eg; $str =~ s/\a/\\a/g; # $str =~ s/\cH/\\b/g; # \b means something different in a regex $str =~ s/\t/\\t/g; @@ -3046,8 +3046,8 @@ sub escape_str { # ASCII, UTF8 $str =~ s/\e/\\e/g; $str =~ s/\f/\\f/g; $str =~ s/\r/\\r/g; - $str =~ s/([\cA-\cZ])/'\\c' . chr(ord('@') + ord($1))/ge; - $str =~ s/([^[:print:]])/'\\' . sprintf("%03o", ord($1))/ge; + $str =~ s/([\cA-\cZ])/sprintf("\\c%c", ord('@') + ord($1))/ge; + $str =~ s/([[:^print:]])/sprintf("\\%03o", ord($1))/ge; return $str; } @@ -3055,8 +3055,8 @@ sub escape_str { # ASCII, UTF8 # Leave whitespace unmangled. sub escape_extended_re { my($str) = @_; - $str =~ s/(.)/ord($1)>255 ? sprintf("\\x{%x}", ord($1)) : $1/eg; - $str =~ s/([^[:print:]])/'\\' . sprintf("%03o", ord($1))/ge; + $str =~ s/(.)/ord($1) > 255 ? sprintf("\\x{%x}", ord($1)) : $1/eg; + $str =~ s/([[:^print:]])/sprintf("\\%03o", ord($1))/ge; $str =~ s/\n/\n\f/g; return $str; } @@ -3074,7 +3074,7 @@ sub re_unback { my($str) = @_; # the insane complexity here is due to the behaviour of "\c\" - $str =~ s/(^|[^\\]|\\c\\)(?<!\\c)\\(\\\\)*(?=[^[:print:]])/$1$2/g; + $str =~ s/(^|[^\\]|\\c\\)(?<!\\c)\\(\\\\)*(?=[[:^print:]])/$1$2/g; return $str; } |