4 # default warnings should be displayed if you don't add anything
6 my $a = oct "7777777777777777777777777777777777779" ;
8 Integer overflow in octal number at - line 3.
10 # no warnings should be displayed
12 my $a = oct "7777777777777777777777777777777777778" ;
15 # all warnings should be displayed
17 my $a = oct "7777777777777777777777777777777777778" ;
19 Integer overflow in octal number at - line 3.
20 Illegal octal digit '8' ignored at - line 3.
21 Octal number > 037777777777 non-portable at - line 3.
25 my $a = oct "7777777777777777777777777777777777778" ;
28 my $a = oct "7777777777777777777777777777777777778" ;
30 my $c = oct "7777777777777777777777777777777777778" ;
32 Integer overflow in octal number at - line 3.
33 Illegal octal digit '8' ignored at - line 3.
34 Octal number > 037777777777 non-portable at - line 3.
35 Integer overflow in octal number at - line 8.
36 Illegal octal digit '8' ignored at - line 8.
37 Octal number > 037777777777 non-portable at - line 8.
39 # all warnings should be displayed
41 my $a = oct "0xfffffffffffffffffg" ;
43 Integer overflow in hexadecimal number at - line 3.
44 Illegal hexadecimal digit 'g' ignored at - line 3.
45 Hexadecimal number > 0xffffffff non-portable at - line 3.
47 # all warnings should be displayed
49 my $a = oct "0b111111111111111111111111111111111111111111111111111111111111111112";
51 Integer overflow in binary number at - line 3.
52 Illegal binary digit '2' ignored at - line 3.
53 Binary number > 0b11111111111111111111111111111111 non-portable at - line 3.