From 47bf465140acce46c629473db8f093e4c3ce9e09 Mon Sep 17 00:00:00 2001
From: Zefram <zefram@fysh.org>
Date: Sun, 25 Aug 2013 11:45:48 +0100
Subject: [PATCH] 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.
---
 dist/Carp/lib/Carp.pm | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/dist/Carp/lib/Carp.pm b/dist/Carp/lib/Carp.pm
index f820e55..3053040 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;
-- 
2.7.4