Commit caca05eb authored by runge's avatar runge

sync java viewer.

parent 7e7ef1b4
...@@ -354,7 +354,9 @@ disp=`echo "$orig" | awk -F: '{print $2}'` ...@@ -354,7 +354,9 @@ disp=`echo "$orig" | awk -F: '{print $2}'`
if [ "X$host" = "X" ]; then if [ "X$host" = "X" ]; then
host=localhost host=localhost
fi fi
if [ $disp -lt 0 ]; then if [ "X$disp" = "X" ]; then
port="" # probably -listen mode.
elif [ $disp -lt 0 ]; then
# negative means use |n| without question: # negative means use |n| without question:
port=`expr 0 - $disp` port=`expr 0 - $disp`
elif [ $disp -lt 200 ]; then elif [ $disp -lt 200 ]; then
...@@ -907,8 +909,20 @@ sub xfer { ...@@ -907,8 +909,20 @@ sub xfer {
close($out); close($out);
} }
' '
echo "$cod" > $tf # xpg_echo will expand \n \r, etc.
# try to unset and then test for it.
shopt -u xpg_echo >/dev/null 2>&1
v='print STDOUT "abc\n";'
echo "$v" > $tf
chmod 700 $tf chmod 700 $tf
lc=`wc -l $tf | awk '{print $1}'`
if [ "X$lc" = "X1" ]; then
echo "$cod" > $tf
else
printf "%s" "$cod" > $tf
echo "" >> $tf
fi
# prime perl # prime perl
perl -e 'use IO::Socket::INET; select(undef, undef, undef, 0.01)' >/dev/null 2>&1 perl -e 'use IO::Socket::INET; select(undef, undef, undef, 0.01)' >/dev/null 2>&1
} }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment