diff options
-rw-r--r-- | lib/Carp/Heavy.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Carp/Heavy.pm b/lib/Carp/Heavy.pm index a3d951b08c..9d3e000aa9 100644 --- a/lib/Carp/Heavy.pm +++ b/lib/Carp/Heavy.pm @@ -59,7 +59,7 @@ sub format_arg { # The following handling of "control chars" is direct from # the original code - I think it is broken on Unicode though. # Suggestions? - $arg =~ s/([[:cntrl:]]|[[^:ascii:]])/sprintf("\\x{%x}",ord($1))/eg; + $arg =~ s/([[:cntrl:]]|[[:^ascii:]])/sprintf("\\x{%x}",ord($1))/eg; return $arg; } |