malformed POSIX negation

Message-ID: <Pine.GSO.4.21.0106181650590.17386-100000@crusoe.crusoe.net>

p4raw-id: //depot/perl@10695

diff --git a/lib/Carp/Heavy.pm b/lib/Carp/Heavy.pm
index a3d951b..9d3e000 100644 (file)
--- 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;
 }