__END__
# util.c
-use warning 'octal' ;
+use warnings 'digit' ;
+my $a = oct "029" ;
+no warnings 'digit' ;
my $a = oct "029" ;
EXPECT
Illegal octal digit '9' ignored at - line 3.
########
# util.c
-use warning 'unsafe' ;
+use warnings 'digit' ;
+*a = hex "0xv9" ;
+no warnings 'digit' ;
*a = hex "0xv9" ;
EXPECT
-Illegal hex digit 'v' ignored at - line 3.
+Illegal hexadecimal digit 'v' ignored at - line 3.
########
# util.c
-use warning 'unsafe' ;
+use warnings 'digit' ;
+*a = oct "0b9" ;
+no warnings 'digit' ;
*a = oct "0b9" ;
EXPECT
Illegal binary digit '9' ignored at - line 3.