projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
6ca8d8f
)
slightly better debugging
author
minima
<minima>
Thu, 4 Jul 2002 15:21:05 +0000
(15:21 +0000)
committer
minima
<minima>
Thu, 4 Jul 2002 15:21:05 +0000
(15:21 +0000)
perl/Prefix.pm
patch
|
blob
|
history
diff --git
a/perl/Prefix.pm
b/perl/Prefix.pm
index ed1bd25f43a8585ded143b070fdf674659938379..17ba83dca5b7ea6711c7b87fdbd2ce6f27e197ce 100644
(file)
--- 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;