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
  10 __END__
  11 # util.c
  12 use warning 'octal' ;
  13 my $a = oct "029" ;
  14 EXPECT
  15 Illegal octal digit ignored at - line 3.
  16 ########
  17 # util.c
  18 use warning 'unsafe' ;
  19 *a =  hex "0xv9" ;
  20 EXPECT
  21 Illegal hex digit ignored at - line 3.