projects
/
p5sagit/p5-mst-13.2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
lexwarn maintenance: new warning class unsafe
[p5sagit/p5-mst-13.2.git]
/
t
/
pragma
/
warn
/
util
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
9
Illegal binary digit ignored
10
my $a = oct "0b9" ;
11
12
__END__
13
# util.c
14
use warning 'digit' ;
15
my $a = oct "029" ;
16
no warning 'digit' ;
17
my $a = oct "029" ;
18
EXPECT
19
Illegal octal digit '9' ignored at - line 3.
20
########
21
# util.c
22
use warning 'digit' ;
23
*a = hex "0xv9" ;
24
no warning 'digit' ;
25
*a = hex "0xv9" ;
26
EXPECT
27
Illegal hexadecimal digit 'v' ignored at - line 3.
28
########
29
# util.c
30
use warning 'digit' ;
31
*a = oct "0b9" ;
32
no warning 'digit' ;
33
*a = oct "0b9" ;
34
EXPECT
35
Illegal binary digit '9' ignored at - line 3.