projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
limit the no of spots stored for a search
[spider.git]
/
perl
/
Spot.pm
diff --git
a/perl/Spot.pm
b/perl/Spot.pm
index 74b3f77319decf08c9f004a471d7cc34b46161e4..0761f07d0522f865ad10d4c950df4d12033f7f02 100644
(file)
--- a/
perl/Spot.pm
+++ b/
perl/Spot.pm
@@
-222,7
+222,7
@@
sub add
}
if ($_[3] =~ /(?:QSL|VIA)/i) {
my $q = QSL::get($_[1]) || new QSL $_[1];
}
if ($_[3] =~ /(?:QSL|VIA)/i) {
my $q = QSL::get($_[1]) || new QSL $_[1];
- $q->update($_[3], $_[2], $_[4]);
+ $q->update($_[3], $_[2], $_[4])
if $q
;
}
}
}
}
@@
-307,6
+307,7
@@
sub search
my \@s = split /\\^/;
$checkfilter;
push \@spots, \\\@s;
my \@s = split /\\^/;
$checkfilter;
push \@spots, \\\@s;
+ shift \@spots if \@spots > $to + 2;
}
my \$c;
my \$ref;
}
my \$c;
my \$ref;