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";
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;