tidy up for running with 'showdx' a bit more.

[spider.git] / perl / showdx

diff --git a/perl/showdx b/perl/showdx
index 9af8f41bcfba489681c86419da5a12e819bf964f..bd7696f8682ead963e4360d184e99d58cdff5a0c 100755 (executable)
--- a/perl/showdx
+++ b/perl/showdx
@@ -21,6 +21,7 @@ use IO::Handle;
 use DXUtil;
 use Bands;
 use Spot;
+use VE7CC;
 
 $dxdir = "/spider/cmd/show";
 $dxcmd = "dx.pl";
@@ -44,7 +45,7 @@ for (;;) {
                chomp $myexpr;
                last if $myexpr =~ /^q$/i;
        }
-       my @out = map {"$_\n"} &$dxproc({priv=>0,call=>'GDX'}, $myexpr);
+       my @out = map {"$_\n"} &$dxproc(undef, $myexpr);
        shift @out;   # remove return code
        print @out;
        last if $expr;