1Check interaction of $^W and lexical 2 3__END__ 4 5# Check interaction of $^W and use warnings 6sub fred { 7 use warnings ; 8 my $b ; 9 chop $b ; 10} 11{ local $^W = 0 ; 12 fred() ; 13} 14 15EXPECT 16Use of uninitialized value $b in scalar chop at - line 6. 17######## 18 19# Check interaction of $^W and use warnings 20sub fred { 21 use warnings ; 22 my $b ; 23 chop $b ; 24} 25{ $^W = 0 ; 26 fred() ; 27} 28 29EXPECT 30Use of uninitialized value $b in scalar chop at - line 6. 31######## 32 33# Check interaction of $^W and use warnings 34sub fred { 35 no warnings ; 36 my $b ; 37 chop $b ; 38} 39{ local $^W = 1 ; 40 fred() ; 41} 42 43EXPECT 44 45######## 46 47# Check interaction of $^W and use warnings 48sub fred { 49 no warnings ; 50 my $b ; 51 chop $b ; 52} 53{ $^W = 1 ; 54 fred() ; 55} 56 57EXPECT 58 59######## 60 61# Check interaction of $^W and use warnings 62use warnings ; 63$^W = 1 ; 64my $b ; 65chop $b ; 66EXPECT 67Use of uninitialized value $b in scalar chop at - line 6. 68######## 69 70# Check interaction of $^W and use warnings 71$^W = 1 ; 72use warnings ; 73my $b ; 74chop $b ; 75EXPECT 76Use of uninitialized value $b in scalar chop at - line 6. 77######## 78 79# Check interaction of $^W and use warnings 80$^W = 1 ; 81no warnings ; 82my $b ; 83chop $b ; 84EXPECT 85 86######## 87 88# Check interaction of $^W and use warnings 89no warnings ; 90$^W = 1 ; 91my $b ; 92chop $b ; 93EXPECT 94 95######## 96-w 97# Check interaction of $^W and use warnings 98no warnings ; 99my $b ; 100chop $b ; 101EXPECT 102 103######## 104-w 105# Check interaction of $^W and use warnings 106use warnings ; 107my $b ; 108chop $b ; 109EXPECT 110Use of uninitialized value $b in scalar chop at - line 5. 111######## 112 113# Check interaction of $^W and use warnings 114sub fred { 115 use warnings ; 116 my $b ; 117 chop $b ; 118} 119BEGIN { $^W = 0 } 120fred() ; 121EXPECT 122Use of uninitialized value $b in scalar chop at - line 6. 123######## 124 125# Check interaction of $^W and use warnings 126sub fred { 127 no warnings ; 128 my $b ; 129 chop $b ; 130} 131BEGIN { $^W = 1 } 132fred() ; 133 134EXPECT 135 136######## 137 138# Check interaction of $^W and use warnings 139use warnings ; 140BEGIN { $^W = 1 } 141my $b ; 142chop $b ; 143EXPECT 144Use of uninitialized value $b in scalar chop at - line 6. 145######## 146 147# Check interaction of $^W and use warnings 148BEGIN { $^W = 1 } 149use warnings ; 150my $b ; 151chop $b ; 152EXPECT 153Use of uninitialized value $b in scalar chop at - line 6. 154######## 155 156# Check interaction of $^W and use warnings 157BEGIN { $^W = 1 } 158no warnings ; 159my $b ; 160chop $b ; 161EXPECT 162 163######## 164 165# Check interaction of $^W and use warnings 166no warnings ; 167BEGIN { $^W = 1 } 168my $b ; 169chop $b ; 170EXPECT 171 172######## 173 174# Check interaction of $^W and use warnings 175BEGIN { $^W = 1 } 176{ 177 no warnings ; 178 my $b ; 179 chop $b ; 180} 181my $b ; 182chop $b ; 183EXPECT 184Use of uninitialized value $b in scalar chop at - line 10. 185######## 186 187# Check interaction of $^W and use warnings 188BEGIN { $^W = 0 } 189{ 190 use warnings ; 191 my $b ; 192 chop $b ; 193} 194my $b ; 195chop $b ; 196EXPECT 197Use of uninitialized value $b in scalar chop at - line 7. 198######## 199 200# Check scope of pragma with eval 201BEGIN { $^W = 1 } 202{ 203 no warnings ; 204 eval ' 205 my $b ; chop $b ; 206 '; print STDERR $@ ; 207 my $b ; chop $b ; 208} 209EXPECT 210 211######## 212 213# Check scope of pragma with eval 214BEGIN { $^W = 1 } 215use warnings; 216{ 217 no warnings ; 218 eval q[ 219 use warnings 'uninitialized' ; 220 my $b ; chop $b ; 221 ]; print STDERR $@; 222 my $b ; chop $b ; 223} 224EXPECT 225Use of uninitialized value $b in scalar chop at (eval 1) line 3. 226######## 227 228# Check scope of pragma with eval 229BEGIN { $^W = 0 } 230{ 231 use warnings 'uninitialized' ; 232 eval ' 233 my $b ; chop $b ; 234 '; print STDERR $@ ; 235 my $b ; chop $b ; 236} 237EXPECT 238Use of uninitialized value $b in scalar chop at (eval 1) line 2. 239Use of uninitialized value $b in scalar chop at - line 9. 240######## 241 242# Check scope of pragma with eval 243BEGIN { $^W = 0 } 244{ 245 use warnings 'uninitialized' ; 246 eval ' 247 no warnings ; 248 my $b ; chop $b ; 249 '; print STDERR $@ ; 250 my $b ; chop $b ; 251} 252EXPECT 253Use of uninitialized value $b in scalar chop at - line 10. 254######## 255 256# Check scope of pragma with eval 257BEGIN { $^W = 1 } 258{ 259 no warnings ; 260 eval ' 261 my $a =+ 1 ; 262 '; print STDERR $@ ; 263 my $a =+ 1 ; 264} 265EXPECT 266 267