projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
01986d2
)
*** empty log message ***
author
djk
<djk>
Mon, 19 Jul 1999 17:03:25 +0000
(17:03 +0000)
committer
djk
<djk>
Mon, 19 Jul 1999 17:03:25 +0000
(17:03 +0000)
cmd/show/dx.pl
patch
|
blob
|
history
diff --git
a/cmd/show/dx.pl
b/cmd/show/dx.pl
index f74fb99643ae4e5b78af24bb4404f7b6de6bb69f..a70ef50f66f7f2ac848eafd7e468e5e131732f2f 100644
(file)
--- a/
cmd/show/dx.pl
+++ b/
cmd/show/dx.pl
@@
-65,7
+65,7
@@
while ($f = shift @list) { # next field
my ($a, $b);
# $DB::single =1;
- if (
($a, $b) = $list[0] =~ /(AF|AN|NA|SA|EU|AS|OC)-?(\d\d\d)/oi
) {
+ if (
$list[0] && (($a, $b) = $list[0] =~ /(AF|AN|NA|SA|EU|AS|OC)-?(\d\d\d)/oi)
) {
$a = uc $a;
$doiota = "\\b$a\[\-\ \]\?$b\\b";
shift @list;