projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
remove debugging from show prefix
[spider.git]
/
cmd
/
show
/
prefix.pl
diff --git
a/cmd/show/prefix.pl
b/cmd/show/prefix.pl
index ed53d9277b302f072c9cb775f7c80f68024f927f..8177e1e563de4d229e7d5c7ab2d823e23a457b1e 100644
(file)
--- a/
cmd/show/prefix.pl
+++ b/
cmd/show/prefix.pl
@@
-13,8
+13,8
@@
my @out;
#print "line: $line\n";
foreach $l (@list) {
my @ans = Prefix::extract($l);
#print "line: $line\n";
foreach $l (@list) {
my @ans = Prefix::extract($l);
- my $dd = new Data::Dumper([ \@ans ]);
- print "ans:", $dd->Dumpxs;
+
#
my $dd = new Data::Dumper([ \@ans ]);
+
#
print "ans:", $dd->Dumpxs;
next if !@ans;
my $pre = shift @ans;
my $a;
next if !@ans;
my $pre = shift @ans;
my $a;