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     use warning ;
  22     my $b ;
  23     chop $b ;
  24 }
  25 { $^W = 0 ;
  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 sub fred {
  35     no warning ;
  36     my $b ;
  37     chop $b ;
  38 }
  39 { local $^W = 1 ;
  40   fred() ;
  41 }
  42
  43 EXPECT
  44
  45 ########
  46
  47 # Check interaction of $^W and use warning
  48 sub fred {
  49     no warning ;
  50     my $b ;
  51     chop $b ;
  52 }
  53 { $^W = 1 ;
  54   fred() ;
  55 }
  56
  57 EXPECT
  58
  59 ########
  60
  61 # Check interaction of $^W and use warning
  62 use warning ;
  63 $^W = 1 ;
  64 my $b ;
  65 chop $b ;
  66 EXPECT
  67 Use of uninitialized value at - line 6.
  68 ########
  69
  70 # Check interaction of $^W and use warning
  71 $^W = 1 ;
  72 use warning ;
  73 my $b ;
  74 chop $b ;
  75 EXPECT
  76 Use of uninitialized value at - line 6.
  77 ########
  78
  79 # Check interaction of $^W and use warning
  80 $^W = 1 ;
  81 no warning ;
  82 my $b ;
  83 chop $b ;
  84 EXPECT
  85
  86 ########
  87
  88 # Check interaction of $^W and use warning
  89 no warning ;
  90 $^W = 1 ;
  91 my $b ;
  92 chop $b ;
  93 EXPECT
  94
  95 ########
  96 -w
  97 # Check interaction of $^W and use warning
  98 no warning ;
  99 my $b ;
 100 chop $b ;
 101 EXPECT
 102
 103 ########
 104 -w
 105 # Check interaction of $^W and use warning
 106 use warning ;
 107 my $b ;
 108 chop $b ;
 109 EXPECT
 110 Use of uninitialized value at - line 5.
 111 ########
 112
 113 # Check interaction of $^W and use warning
 114 sub fred {
 115     use warning ;
 116     my $b ;
 117     chop $b ;
 118 }
 119 BEGIN {  $^W = 0 }
 120 fred() ;
 121 EXPECT
 122 Use of uninitialized value at - line 6.
 123 ########
 124
 125 # Check interaction of $^W and use warning
 126 sub fred {
 127     no warning ;
 128     my $b ;
 129     chop $b ;
 130 }
 131 BEGIN {  $^W = 1 }
 132 fred() ;
 133
 134 EXPECT
 135
 136 ########
 137
 138 # Check interaction of $^W and use warning
 139 use warning ;
 140 BEGIN {  $^W = 1 }
 141 my $b ;
 142 chop $b ;
 143 EXPECT
 144 Use of uninitialized value at - line 6.
 145 ########
 146
 147 # Check interaction of $^W and use warning
 148 BEGIN {  $^W = 1 }
 149 use warning ;
 150 my $b ;
 151 chop $b ;
 152 EXPECT
 153 Use of uninitialized value at - line 6.
 154 ########
 155
 156 # Check interaction of $^W and use warning
 157 BEGIN {  $^W = 1 }
 158 no warning ;
 159 my $b ;
 160 chop $b ;
 161 EXPECT
 162
 163 ########
 164
 165 # Check interaction of $^W and use warning
 166 no warning ;
 167 BEGIN {  $^W = 1 }
 168 my $b ;
 169 chop $b ;
 170 EXPECT
 171
 172 ########
 173
 174 # Check interaction of $^W and use warning
 175 BEGIN {  $^W = 1 }
 176 {
 177     no warning ;
 178     my $b ;
 179     chop $b ;
 180 }
 181 my $b ;
 182 chop $b ;
 183 EXPECT
 184 Use of uninitialized value at - line 10.
 185 ########
 186
 187 # Check interaction of $^W and use warning
 188 BEGIN {  $^W = 0 }
 189 {
 190     use warning ;
 191     my $b ;
 192     chop $b ;
 193 }
 194 my $b ;
 195 chop $b ;
 196 EXPECT
 197 Use of uninitialized value at - line 7.