fix bit-endian 16 bit unpack for move

[premotedroid-server-perl.git] / premotedroid-server.pl

diff --git a/premotedroid-server.pl b/premotedroid-server.pl
index 25ae497..0d7c6b0 100755 (executable)
--- a/premotedroid-server.pl
+++ b/premotedroid-server.pl
@@ -45,7 +45,7 @@ while ( my $client = $sock->accept() ) {
                warn "# command: $command\n";
                if ( $command == MOUSE_MOVE ) {
                        read $client, my $move, 4;
-                       my ( $x, $y ) = unpack 'ss', $move;
+                       my ( $x, $y ) = unpack 's>s>', $move; # big-endian 16 bit
                        warn "MOVE $x $y\n";
                } elsif ( $command == MOUSE_CLICK ) {
                        read $client, my $b, 2;