mirror of
https://github.com/MinecraftServerControl/mscs.git
synced 2024-11-15 14:58:18 -07:00
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:
parent
0bd41da555
commit
9a4d981baa
@ -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.
|
||||
|
Loading…
Reference in New Issue
Block a user