projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
remove obsolete gconsole
[spider.git]
/
perl
/
showdx
diff --git
a/perl/showdx
b/perl/showdx
index 2ca142c316f3d01e1b80972de4aec7b58641b0f6..bd7696f8682ead963e4360d184e99d58cdff5a0c 100755
(executable)
--- 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";
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 IO::Handle;
use DXUtil;
use Bands;
use Spot;
+use VE7CC;
$dxdir = "/spider/cmd/show";
$dxcmd = "dx.pl";
$dxdir = "/spider/cmd/show";
$dxcmd = "dx.pl";
@@
-46,7
+45,7
@@
for (;;) {
chomp $myexpr;
last if $myexpr =~ /^q$/i;
}
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;
shift @out; # remove return code
print @out;
last if $expr;