From: minima Date: Fri, 2 Mar 2001 13:24:31 +0000 (+0000) Subject: allow sh/c gb7 (for instance) X-Git-Tag: R_1_47_PRE1~4 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=d3fec9b4d1a46d9cb8ffc55d61f0130584aa6adb;p=spider.git allow sh/c gb7 (for instance) --- diff --git a/cmd/show/configuration.pl b/cmd/show/configuration.pl index bb845456..ba0f3878 100644 --- a/cmd/show/configuration.pl +++ b/cmd/show/configuration.pl @@ -44,7 +44,7 @@ if ($list[0] && $list[0] =~ /^NOD/) { } else { # build up the screen from the Node table foreach $node (@nodes) { - next if scalar @list && !grep $node->call eq $_, @list; + next if scalar @list && !grep $node->call =~ /^$_/, @list; my $call = $node->call; $call = "($call)" if $node->here == 0; @l = ();