Commit | Line | Data |
---|---|---|
599cee73 | 1 | util.c AOK |
2 | ||
3 | Illegal octal digit ignored | |
4 | my $a = oct "029" ; | |
5 | ||
9e24b6e2 | 6 | Illegal hex digit ignored |
599cee73 | 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" ; | |
0453d815 | 16 | no warning 'octal' ; |
9e24b6e2 | 17 | my $a = oct "029" ; |
599cee73 | 18 | EXPECT |
399388f4 | 19 | Illegal octal digit '9' ignored at - line 3. |
599cee73 | 20 | ######## |
21 | # util.c | |
22 | use warning 'unsafe' ; | |
23 | *a = hex "0xv9" ; | |
0453d815 | 24 | no warning 'unsafe' ; |
25 | *a = hex "0xv9" ; | |
599cee73 | 26 | EXPECT |
651978e7 | 27 | Illegal hexadecimal digit 'v' ignored at - line 3. |
4f19785b | 28 | ######## |
29 | # util.c | |
30 | use warning 'unsafe' ; | |
31 | *a = oct "0b9" ; | |
0453d815 | 32 | no warning 'unsafe' ; |
33 | *a = oct "0b9" ; | |
4f19785b | 34 | EXPECT |
399388f4 | 35 | Illegal binary digit '9' ignored at - line 3. |