Check interaction of $^W and lexical __END__ # Check interaction of $^W and use warning sub fred { use warning ; my $b ; chop $b ; } { local $^W = 0 ; fred() ; } EXPECT Use of uninitialized value at - line 6. ######## # Check interaction of $^W and use warning sub fred { no warning ; my $b ; chop $b ; } { local $^W = 1 ; fred() ; } EXPECT Use of uninitialized value at - line 6. ######## # Check interaction of $^W and use warning use warning ; $^W = 1 ; my $b ; chop $b ; EXPECT Use of uninitialized value at - line 6. ######## # Check interaction of $^W and use warning $^W = 1 ; use warning ; my $b ; chop $b ; EXPECT Use of uninitialized value at - line 6. ######## # Check interaction of $^W and use warning $^W = 1 ; no warning ; my $b ; chop $b ; EXPECT Use of uninitialized value at - line 6. ######## # Check interaction of $^W and use warning no warning ; $^W = 1 ; my $b ; chop $b ; EXPECT Use of uninitialized value at - line 6.