summaryrefslogtreecommitdiff
path: root/t/pragma/warn/toke
diff options
context:
space:
mode:
Diffstat (limited to 't/pragma/warn/toke')
-rw-r--r--t/pragma/warn/toke12
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.