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 | |
12 | __END__ |
13 | # util.c |
14 | use warning 'octal' ; |
15 | my $a = oct "029" ; |
16 | EXPECT |
399388f4 |
17 | Illegal octal digit '9' ignored at - line 3. |
599cee73 |
18 | ######## |
19 | # util.c |
20 | use warning 'unsafe' ; |
21 | *a = hex "0xv9" ; |
22 | EXPECT |
399388f4 |
23 | Illegal hex digit 'v' ignored at - line 3. |
4f19785b |
24 | ######## |
25 | # util.c |
26 | use warning 'unsafe' ; |
27 | *a = oct "0b9" ; |
28 | EXPECT |
399388f4 |
29 | Illegal binary digit '9' ignored at - line 3. |