diff options
| author | Zefram <zefram@fysh.org> | 2013-08-25 11:45:48 +0100 |
|---|---|---|
| committer | Zefram <zefram@fysh.org> | 2013-08-25 11:45:48 +0100 |
| commit | 47bf465140acce46c629473db8f093e4c3ce9e09 (patch) | |
| tree | 703c060950f5abb4412831f2007bcbfec13acd58 /dist/Carp | |
| parent | 5fc215870ddb7a0d1464808d9925d823bdfdb0b1 (diff) | |
| download | perl-47bf465140acce46c629473db8f093e4c3ce9e09.tar.gz | |
remove stray debugging print statements
Debugging code was left in the version of Carp's string arg formatting
that handles upgraded strings on older perls.
Diffstat (limited to 'dist/Carp')
| -rw-r--r-- | dist/Carp/lib/Carp.pm | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/dist/Carp/lib/Carp.pm b/dist/Carp/lib/Carp.pm index f820e55122..305304021d 100644 --- a/dist/Carp/lib/Carp.pm +++ b/dist/Carp/lib/Carp.pm @@ -289,7 +289,6 @@ sub format_arg { $suffix = "..."; } if(UTF8_REGEXP_PROBLEM && is_utf8($arg)) { - print "len = @{[length($arg)]}\n"; for(my $i = length($arg); $i--; ) { my $c = substr($arg, $i, 1); my $x = substr($arg, 0, 0); # work around bug on Perl 5.8.{1,2} @@ -298,11 +297,8 @@ sub format_arg { next; } my $o = ord($c); - print "i=$i o=$o\n"; - print "arg=<$arg>\n"; substr $arg, $i, 1, sprintf("\\x{%x}", $o) if $o < 0x20 || $o > 0x7f; - print "arg=<$arg>\n"; } } else { $arg =~ s/([\"\\\$\@])/\\$1/g; |