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