From 0c793b6f00b278111ed6958bc7f2b834f3da392c Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 21 Dec 2006 10:24:05 +0000
Subject: Upgrade to Text::Balanced 2.0.0

p4raw-id: //depot/perl@29609
---
 lib/Text/Balanced/t/extqlk.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/Text/Balanced/t/extqlk.t')

diff --git a/lib/Text/Balanced/t/extqlk.t b/lib/Text/Balanced/t/extqlk.t
index 0129cd0ba5..97dc517c54 100644
--- a/lib/Text/Balanced/t/extqlk.t
+++ b/lib/Text/Balanced/t/extqlk.t
@@ -23,7 +23,7 @@ $count=2;
 use vars qw( $DEBUG );
 #$DEBUG=1;
 sub debug { print "\t>>>",@_ if $ENV{DEBUG} }
-sub esc   { my $x = shift; $x =~ s/\n/\\n/gs; $x }
+sub esc   { my $x = shift||'<undef>'; $x =~ s/\n/\\n/gs; $x }
 
 ######################### End of black magic.
 
-- 
cgit v1.2.1