X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fshowdx;h=bd7696f8682ead963e4360d184e99d58cdff5a0c;hb=b80b21be59cd48ebdee1ceeddd739114d6e9ab08;hp=2ca142c316f3d01e1b80972de4aec7b58641b0f6;hpb=9af2711cba6e2a1aa298580ba00d87594d623c30;p=spider.git

diff --git a/perl/showdx b/perl/showdx
index 2ca142c3..bd7696f8 100755
--- a/perl/showdx
+++ b/perl/showdx
@@ -15,14 +15,13 @@ BEGIN {
 	
 	unshift @INC, "$root/perl";	# this IS the right way round!
 	unshift @INC, "$root/local";
-
-	sub main::mkver {}
 }
 
 use IO::Handle;
 use DXUtil;
 use Bands;
 use Spot;
+use VE7CC;
 
 $dxdir = "/spider/cmd/show";
 $dxcmd = "dx.pl";
@@ -46,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;