From: minima Date: Thu, 4 Jul 2002 15:21:05 +0000 (+0000) Subject: slightly better debugging X-Git-Tag: R_1_50~41 X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=3e78861c5df183d45e4dc69bcde40d9672ec7e58;p=spider.git slightly better debugging --- 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;