escape the $ of the perl default variable so that it doesn't get interpreted by the shell

Fixes the bug noticed by Aragno.
This commit is contained in:
Jason M. Wood 2013-10-05 17:16:39 -06:00
parent 0bd41da555
commit 9a4d981baa

View File

@ -876,7 +876,7 @@ querySendPacket() {
RETRY=$(($RETRY+1))
# Pack the hex string packet and write it to the query.dat buffer file.
execute "$PERL -e '
print map { pack (\"C\", hex($_)) } (\"'$PACKET'\" =~ /(..)/g);
print map { pack (\"C\", hex(\$_)) } (\"'$PACKET'\" =~ /(..)/g);
' >> $WORLD_DIR/query.dat" $USER_NAME
# Give the query server a moment to respond. Sleep longer if the retry
# count is high.