t/pragma/warn/3both

   1 Check interaction of $^W and lexical
   2
   3 __END__
   4
   5 # Check interaction of $^W and use warning
   6 sub fred {
   7     use warning ;
   8     my $b ;
   9     chop $b ;
  10 }
  11 { local $^W = 0 ;
  12   fred() ;
  13 }
  14
  15 EXPECT
  16 Use of uninitialized value at - line 6.
  17 ########
  18
  19 # Check interaction of $^W and use warning
  20 sub fred {
  21     no warning ;
  22     my $b ;
  23     chop $b ;
  24 }
  25 { local $^W = 1 ;
  26   fred() ;
  27 }
  28
  29 EXPECT
  30 Use of uninitialized value at - line 6.
  31 ########
  32
  33 # Check interaction of $^W and use warning
  34 use warning ;
  35 $^W = 1 ;
  36 my $b ;
  37 chop $b ;
  38 EXPECT
  39 Use of uninitialized value at - line 6.
  40 ########
  41
  42 # Check interaction of $^W and use warning
  43 $^W = 1 ;
  44 use warning ;
  45 my $b ;
  46 chop $b ;
  47 EXPECT
  48 Use of uninitialized value at - line 6.
  49 ########
  50
  51 # Check interaction of $^W and use warning
  52 $^W = 1 ;
  53 no warning ;
  54 my $b ;
  55 chop $b ;
  56 EXPECT
  57 Use of uninitialized value at - line 6.
  58 ########
  59
  60 # Check interaction of $^W and use warning
  61 no warning ;
  62 $^W = 1 ;
  63 my $b ;
  64 chop $b ;
  65 EXPECT
  66 Use of uninitialized value at - line 6.