summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/Carp/Heavy.pm2
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;
}