diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-12-21 10:24:05 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-12-21 10:24:05 +0000 |
| commit | 0c793b6f00b278111ed6958bc7f2b834f3da392c (patch) | |
| tree | 480df403b0a0d644b59c41485052319a16b354cc /lib/Text/Balanced/t/extqlk.t | |
| parent | 8718f9a1b30f0e2dc3598c478b0edf7f5b51c660 (diff) | |
| download | perl-0c793b6f00b278111ed6958bc7f2b834f3da392c.tar.gz | |
Upgrade to Text::Balanced 2.0.0
p4raw-id: //depot/perl@29609
Diffstat (limited to 'lib/Text/Balanced/t/extqlk.t')
| -rw-r--r-- | lib/Text/Balanced/t/extqlk.t | 2 |
1 files changed, 1 insertions, 1 deletions
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. |