From 3e78861c5df183d45e4dc69bcde40d9672ec7e58 Mon Sep 17 00:00:00 2001 From: minima Date: Thu, 4 Jul 2002 15:21:05 +0000 Subject: [PATCH] slightly better debugging --- perl/Prefix.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/perl/Prefix.pm b/perl/Prefix.pm index ed1bd25f..17ba83dc 100644 --- a/perl/Prefix.pm +++ b/perl/Prefix.pm @@ -192,7 +192,10 @@ sub extract for ($i = length $sp; $i >= 1; --$i) { my $ssp = substr($sp, 0, $i); my @wout = get($ssp); - dbg("Partial prefix: $sp $ssp $wout[0]" ) if isdbg('prefix') && $wout[0]; + if (isdbg('prefix')) { + my $part = $wout[0] || "*"; + dbg("Partial prefix: $sp $ssp $part" ); + } next if @wout > 0 && $wout[0] gt $ssp; # last if @wout == 0; push @out, @wout; -- 2.43.0