X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FText%2FBalanced%2Ft%2Fextqlk.t;h=97dc517c54d3a20adb4a306f2a06c43c26468b3a;hb=0c793b6f00b278111ed6958bc7f2b834f3da392c;hp=0129cd0ba57cdbb7cc7accc0d723690bf4686f41;hpb=aa10195b3aa19bb4f167204cdce8fb75d361ccb8;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/Text/Balanced/t/extqlk.t b/lib/Text/Balanced/t/extqlk.t
index 0129cd0..97dc517 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.