better test for quads

mojolicious · Feb 6, 2013 · d9fdae4 · d9fdae4
1 parent a4628f0
commit d9fdae4
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/Changes b/Changes
@@ -1,5 +1,5 @@
 
-3.85  2013-02-05
+3.85  2013-02-07
   - Updated jQuery to version 1.9.1.
   - Improved documentation.
   - Improved tests.

diff --git a/lib/Mojo/Transaction/WebSocket.pm b/lib/Mojo/Transaction/WebSocket.pm
@@ -7,8 +7,9 @@ use Mojo::Util qw(b64_encode decode encode sha1_bytes xor_encode);
 
 use constant DEBUG => $ENV{MOJO_WEBSOCKET_DEBUG} || 0;
 
-# 64bit Perl
-use constant MODERN => $Config{ivsize} > 4;
+# Perl with support for quads
+use constant MODERN =>
+  ($Config{use64bitint} eq 'define' || $Config{longsize} >= 8);
 
 # Unique value from the spec
 use constant GUID => '258EAFA5-E914-47DA-95CA-C5AB0DC85B11';