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 warnings 'digit' ;
  15 my $a = oct "029" ;
  16 no warnings 'digit' ;
  17 my $a = oct "029" ;
  18 EXPECT
  19 Illegal octal digit '9' ignored at - line 3.
  20 ########
  21 # util.c
  22 use warnings 'digit' ;
  23 *a =  hex "0xv9" ;
  24 no warnings 'digit' ;
  25 *a =  hex "0xv9" ;
  26 EXPECT
  27 Illegal hexadecimal digit 'v' ignored at - line 3.
  28 ########
  29 # util.c
  30 use warnings 'digit' ;
  31 *a =  oct "0b9" ;
  32 no warnings 'digit' ;
  33 *a =  oct "0b9" ;
  34 EXPECT
  35 Illegal binary digit '9' ignored at - line 3.