From: minima Date: Sat, 9 Jun 2001 03:16:58 +0000 (+0000) Subject: fix sh/c/n X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=73118618254ddfa6253ccc737d780a0b9823d9e5;p=spider.git fix sh/c/n --- diff --git a/cmd/show/configuration.pl b/cmd/show/configuration.pl index 95211a0f..f563b6ae 100644 --- a/cmd/show/configuration.pl +++ b/cmd/show/configuration.pl @@ -34,8 +34,8 @@ if ($list[0] && $list[0] =~ /^NOD/) { push @l, ""; $i = 0; } - my $s = $call->{call}; - $s = sprintf "(%s)", $s if $call->{here} == 0; + my $s = $call->call; + $s = sprintf "(%s)", $s unless $call->here; push @l, $s; $i++; }