diff options
| author | Jeff Pinyan <japhy@pobox.com> | 2001-06-18 12:52:24 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-18 22:35:13 +0000 |
| commit | 60a2331071c42c5d2731a3f03a19a529f7521acd (patch) | |
| tree | 056f7459e807133ff8c108f919f099cd039bd67c /lib/Carp | |
| parent | f2fc0a4050ac9234cb4e9b7764656b322cb30135 (diff) | |
| download | perl-60a2331071c42c5d2731a3f03a19a529f7521acd.tar.gz | |
malformed POSIX negation
Message-ID: <Pine.GSO.4.21.0106181650590.17386-100000@crusoe.crusoe.net>
p4raw-id: //depot/perl@10695
Diffstat (limited to 'lib/Carp')
| -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; } |