1N/ACheck interaction of $^W and lexical

1N/A

1N/A__END__

1N/A

1N/A# Check interaction of $^W and use warnings

1N/Asub fred {

1N/A use warnings ;

1N/A my $b ;

1N/A chop $b ;

1N/A}

1N/A{ local $^W = 0 ;

1N/A fred() ;

1N/A}

1N/A

1N/AEXPECT

1N/AUse of uninitialized value in scalar chop at - line 6.

1N/A########

1N/A

1N/A# Check interaction of $^W and use warnings

1N/Asub fred {

1N/A use warnings ;

1N/A my $b ;

1N/A chop $b ;

1N/A}

1N/A{ $^W = 0 ;

1N/A fred() ;

1N/A}

1N/A

1N/AEXPECT

1N/AUse of uninitialized value in scalar chop at - line 6.

1N/A########

1N/A

1N/A# Check interaction of $^W and use warnings

1N/Asub fred {

1N/A no warnings ;

1N/A my $b ;

1N/A chop $b ;

1N/A}

1N/A{ local $^W = 1 ;

1N/A fred() ;

1N/A}

1N/A

1N/AEXPECT

1N/A

1N/A########

1N/A

1N/A# Check interaction of $^W and use warnings

1N/Asub fred {

1N/A no warnings ;

1N/A my $b ;

1N/A chop $b ;

1N/A}

1N/A{ $^W = 1 ;

1N/A fred() ;

1N/A}

1N/A

1N/AEXPECT

1N/A

1N/A########

1N/A

1N/A# Check interaction of $^W and use warnings

1N/Ause warnings ;

1N/A$^W = 1 ;

1N/Amy $b ;

1N/Achop $b ;

1N/AEXPECT

1N/AUse of uninitialized value in scalar chop at - line 6.

1N/A########

1N/A

1N/A# Check interaction of $^W and use warnings

1N/A$^W = 1 ;

1N/Ause warnings ;

1N/Amy $b ;

1N/Achop $b ;

1N/AEXPECT

1N/AUse of uninitialized value in scalar chop at - line 6.

1N/A########

1N/A

1N/A# Check interaction of $^W and use warnings

1N/A$^W = 1 ;

1N/Ano warnings ;

1N/Amy $b ;

1N/Achop $b ;

1N/AEXPECT

1N/A

1N/A########

1N/A

1N/A# Check interaction of $^W and use warnings

1N/Ano warnings ;

1N/A$^W = 1 ;

1N/Amy $b ;

1N/Achop $b ;

1N/AEXPECT

1N/A

1N/A########

1N/A-w

1N/A# Check interaction of $^W and use warnings

1N/Ano warnings ;

1N/Amy $b ;

1N/Achop $b ;

1N/AEXPECT

1N/A

1N/A########

1N/A-w

1N/A# Check interaction of $^W and use warnings

1N/Ause warnings ;

1N/Amy $b ;

1N/Achop $b ;

1N/AEXPECT

1N/AUse of uninitialized value in scalar chop at - line 5.

1N/A########

1N/A

1N/A# Check interaction of $^W and use warnings

1N/Asub fred {

1N/A use warnings ;

1N/A my $b ;

1N/A chop $b ;

1N/A}

1N/ABEGIN { $^W = 0 }

1N/Afred() ;

1N/AEXPECT

1N/AUse of uninitialized value in scalar chop at - line 6.

1N/A########

1N/A

1N/A# Check interaction of $^W and use warnings

1N/Asub fred {

1N/A no warnings ;

1N/A my $b ;

1N/A chop $b ;

1N/A}

1N/ABEGIN { $^W = 1 }

1N/Afred() ;

1N/A

1N/AEXPECT

1N/A

1N/A########

1N/A

1N/A# Check interaction of $^W and use warnings

1N/Ause warnings ;

1N/ABEGIN { $^W = 1 }

1N/Amy $b ;

1N/Achop $b ;

1N/AEXPECT

1N/AUse of uninitialized value in scalar chop at - line 6.

1N/A########

1N/A

1N/A# Check interaction of $^W and use warnings

1N/ABEGIN { $^W = 1 }

1N/Ause warnings ;

1N/Amy $b ;

1N/Achop $b ;

1N/AEXPECT

1N/AUse of uninitialized value in scalar chop at - line 6.

1N/A########

1N/A

1N/A# Check interaction of $^W and use warnings

1N/ABEGIN { $^W = 1 }

1N/Ano warnings ;

1N/Amy $b ;

1N/Achop $b ;

1N/AEXPECT

1N/A

1N/A########

1N/A

1N/A# Check interaction of $^W and use warnings

1N/Ano warnings ;

1N/ABEGIN { $^W = 1 }

1N/Amy $b ;

1N/Achop $b ;

1N/AEXPECT

1N/A

1N/A########

1N/A

1N/A# Check interaction of $^W and use warnings

1N/ABEGIN { $^W = 1 }

1N/A{

1N/A no warnings ;

1N/A my $b ;

1N/A chop $b ;

1N/A}

1N/Amy $b ;

1N/Achop $b ;

1N/AEXPECT

1N/AUse of uninitialized value in scalar chop at - line 10.

1N/A########

1N/A

1N/A# Check interaction of $^W and use warnings

1N/ABEGIN { $^W = 0 }

1N/A{

1N/A use warnings ;

1N/A my $b ;

1N/A chop $b ;

1N/A}

1N/Amy $b ;

1N/Achop $b ;

1N/AEXPECT

1N/AUse of uninitialized value in scalar chop at - line 7.

1N/A########

1N/A

1N/A# Check scope of pragma with eval

1N/ABEGIN { $^W = 1 }

1N/A{

1N/A no warnings ;

1N/A eval '

1N/A my $b ; chop $b ;

1N/A '; print STDERR $@ ;

1N/A my $b ; chop $b ;

1N/A}

1N/AEXPECT

1N/A

1N/A########

1N/A

1N/A# Check scope of pragma with eval

1N/ABEGIN { $^W = 1 }

1N/Ause warnings;

1N/A{

1N/A no warnings ;

1N/A eval q[

1N/A use warnings 'uninitialized' ;

1N/A my $b ; chop $b ;

1N/A ]; print STDERR $@;

1N/A my $b ; chop $b ;

1N/A}

1N/AEXPECT

1N/AUse of uninitialized value in scalar chop at (eval 1) line 3.

1N/A########

1N/A

1N/A# Check scope of pragma with eval

1N/ABEGIN { $^W = 0 }

1N/A{

1N/A use warnings 'uninitialized' ;

1N/A eval '

1N/A my $b ; chop $b ;

1N/A '; print STDERR $@ ;

1N/A my $b ; chop $b ;

1N/A}

1N/AEXPECT

1N/AUse of uninitialized value in scalar chop at (eval 1) line 2.

1N/AUse of uninitialized value in scalar chop at - line 9.

1N/A########

1N/A

1N/A# Check scope of pragma with eval

1N/ABEGIN { $^W = 0 }

1N/A{

1N/A use warnings 'uninitialized' ;

1N/A eval '

1N/A no warnings ;

1N/A my $b ; chop $b ;

1N/A '; print STDERR $@ ;

1N/A my $b ; chop $b ;

1N/A}

1N/AEXPECT

1N/AUse of uninitialized value in scalar chop at - line 10.

1N/A########

1N/A

1N/A# Check scope of pragma with eval

1N/ABEGIN { $^W = 1 }

1N/A{

1N/A no warnings ;

1N/A eval '

1N/A my $a =+ 1 ;

1N/A '; print STDERR $@ ;

1N/A my $a =+ 1 ;

1N/A}

1N/AEXPECT

1N/A