perl 5.8 does not support '>' modifier for unpack

vti · Apr 8, 2014 · df462e7 · df462e7
1 parent 6d0c387
commit df462e7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Protocol/WebSocket/Frame.pm b/lib/Protocol/WebSocket/Frame.pm
@@ -163,7 +163,7 @@ sub next_bytes {
             $bits =~ s{^.}{0};
 
             # Can we handle 64bit numbers?
-            if ($Config{ivsize} <= 4 || $Config{longsize} < 8) {
+            if ($Config{ivsize} <= 4 || $Config{longsize} < 8 || $] < 5.010) {
                 $bits = substr($bits, 32);
                 $payload_len = unpack 'N', pack 'B*', $bits;
             }