diff options
Diffstat (limited to 't/pragma/warn/toke')
-rw-r--r-- | t/pragma/warn/toke | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/t/pragma/warn/toke b/t/pragma/warn/toke index 182cc1728c..ee02efa813 100644 --- a/t/pragma/warn/toke +++ b/t/pragma/warn/toke @@ -588,23 +588,23 @@ Octal number > 037777777777 non-portable at - line 11. use warnings 'overflow' ; my $a = 0b011111111111111111111111111111110 ; $a = 0b011111111111111111111111111111111 ; - $a = 0b111111111111111111111111111111111 ; + $a = 0b10000000000000000000000000000000000000000000000000000000000000000 ; $a = 0x0fffffffe ; $a = 0x0ffffffff ; - $a = 0x1ffffffff ; + $a = 0x10000000000000000 ; $a = 0037777777776 ; $a = 0037777777777 ; - $a = 0047777777777 ; + $a = 002000000000000000000000; no warnings 'overflow' ; $a = 0b011111111111111111111111111111110 ; $a = 0b011111111111111111111111111111111 ; - $a = 0b111111111111111111111111111111111 ; + $a = 0b10000000000000000000000000000000000000000000000000000000000000000 ; $a = 0x0fffffffe ; $a = 0x0ffffffff ; - $a = 0x1ffffffff ; + $a = 0x10000000000000000 ; $a = 0037777777776 ; $a = 0037777777777 ; - $a = 0047777777777 ; + $a = 002000000000000000000000; EXPECT Integer overflow in binary number at - line 5. Integer overflow in hexadecimal number at - line 8. |