slightly better debugging

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;