From d3fec9b4d1a46d9cb8ffc55d61f0130584aa6adb Mon Sep 17 00:00:00 2001 From: minima Date: Fri, 2 Mar 2001 13:24:31 +0000 Subject: [PATCH] allow sh/c gb7 (for instance) --- cmd/show/configuration.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 = (); -- 2.43.0