From: Jeff Pinyan <japhy@pobox.com>
Date: Mon, 18 Jun 2001 16:52:24 +0000 (-0400)
Subject: malformed POSIX negation
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=60a2331071c42c5d2731a3f03a19a529f7521acd;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;
 }