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=e823e34b0e8bbeb27ea1815e3fab53c7464852ec;hpb=ce3ac4b622fa47e8694929bdb9f342a59186d677;p=p5sagit%2Fp5-mst-13.2.git

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