Commit | Line | Data |
599cee73 |
1 | util.c AOK |
2 | |
3 | Illegal octal digit ignored |
4 | my $a = oct "029" ; |
5 | |
6 | Illegal hex digit ignored |
7 | my $a = hex "0xv9" ; |
8 | |
4f19785b |
9 | Illegal binary digit ignored |
10 | my $a = oct "0b9" ; |
599cee73 |
11 | |
0453d815 |
12 | |
13 | Mandatory Warnings |
14 | ------------------ |
15 | Integer overflow in binary number |
16 | Integer overflow in octal number |
17 | Integer overflow in hex number |
18 | |
599cee73 |
19 | __END__ |
20 | # util.c |
21 | use warning 'octal' ; |
22 | my $a = oct "029" ; |
0453d815 |
23 | no warning 'octal' ; |
24 | my $a = oct "029" ; |
599cee73 |
25 | EXPECT |
399388f4 |
26 | Illegal octal digit '9' ignored at - line 3. |
599cee73 |
27 | ######## |
28 | # util.c |
29 | use warning 'unsafe' ; |
30 | *a = hex "0xv9" ; |
0453d815 |
31 | no warning 'unsafe' ; |
32 | *a = hex "0xv9" ; |
599cee73 |
33 | EXPECT |
399388f4 |
34 | Illegal hex digit 'v' ignored at - line 3. |
4f19785b |
35 | ######## |
36 | # util.c |
37 | use warning 'unsafe' ; |
38 | *a = oct "0b9" ; |
0453d815 |
39 | no warning 'unsafe' ; |
40 | *a = oct "0b9" ; |
4f19785b |
41 | EXPECT |
399388f4 |
42 | Illegal binary digit '9' ignored at - line 3. |
0453d815 |
43 | ######## |
44 | # util.c |
45 | $^W =1 ; |
46 | { |
47 | use warning 'unsafe' ; |
48 | my $a = oct "0b111111111111111111111111111111111" ; |
49 | no warning 'unsafe' ; |
50 | $a = oct "0b111111111111111111111111111111111" ; |
51 | } |
52 | my $a = oct "0b111111111111111111111111111111111" ; |
53 | EXPECT |
54 | Integer overflow in binary number at - line 5. |
55 | Integer overflow in binary number at - line 9. |
56 | ######## |
57 | # util.c |
58 | $^W =1 ; |
59 | { |
60 | use warning 'unsafe' ; |
61 | my $a = oct "777777777777777777777777777777777777" ; |
62 | no warning 'unsafe' ; |
63 | $a = oct "777777777777777777777777777777777777" ; |
64 | } |
65 | my $a = oct "777777777777777777777777777777777777" ; |
66 | EXPECT |
67 | Integer overflow in octal number at - line 5. |
68 | Integer overflow in octal number at - line 9. |
69 | ######## |
70 | # util.c |
71 | $^W =1 ; |
72 | { |
73 | use warning 'unsafe' ; |
74 | my $a = hex "ffffffffffffffffffffffffffffffff" ; |
75 | no warning 'unsafe' ; |
76 | $a = hex "ffffffffffffffffffffffffffffffff" ; |
77 | } |
78 | my $a = hex "ffffffffffffffffffffffffffffffff" ; |
79 | EXPECT |
80 | Integer overflow in hex number at - line 5. |
81 | Integer overflow in hex number at - line 9. |
82 | |