From 3e78861c5df183d45e4dc69bcde40d9672ec7e58 Mon Sep 17 00:00:00 2001
From: minima <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.34.1