projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add standard gcommit command
[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 DXUtil;
use Bands;
use Spot;
+use VE7CC;
$dxdir = "/spider/cmd/show";
$dxcmd = "dx.pl";
$dxdir = "/spider/cmd/show";
$dxcmd = "dx.pl";
@@
-44,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;