improved 32bit Perl support of Mojo::Transaction::WebSocket

mojolicious · May 3, 2012 · 5e25e95 · 5e25e95
1 parent c0dacfe
commit 5e25e95
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/Changes b/Changes
@@ -1,6 +1,7 @@
 This file documents the revision history for Perl extension Mojolicious.
 
 2.93  2012-05-03
+  - Improved 32bit Perl support of Mojo::Transaction::WebSocket.
   - Improved documentation.
   - Improved tests.
 

diff --git a/lib/Mojo/Transaction/WebSocket.pm b/lib/Mojo/Transaction/WebSocket.pm
@@ -61,15 +61,15 @@ sub build_frame {
     $frame .= pack 'n', $len;
   }
 
-  # Extended payload (64bit)
+  # Extended payload (64bit with 32bit fallback)
   else {
     warn "-- Extended 64bit payload ($len)\n$payload\n" if DEBUG;
     vec($prefix, 0, 8) = $masked ? (127 | 0b10000000) : 127;
     $frame .= $prefix;
     $frame
       .= $Config{ivsize} > 4
       ? pack('Q>', $len)
-      : pack('NN', $len >> 32, $len & 0xFFFFFFFF);
+      : pack('NN', 0, $len & 0xFFFFFFFF);
   }
 
   # Mask payload
@@ -154,7 +154,7 @@ sub parse_frame {
     warn "-- Extended 16bit payload ($len)\n" if DEBUG;
   }
 
-  # Extended payload (64bit)
+  # Extended payload (64bit with 32bit fallback)
   elsif ($len == 127) {
     return unless length $clone > 10;
     $hlen = 10;