From: minima <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.org/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;