1N/ACheck FATAL functionality

1N/A

1N/A__END__

1N/A

1N/A# Check compile time warning

1N/Ause warnings FATAL => 'syntax' ;

1N/A{

1N/A no warnings ;

1N/A $a =+ 1 ;

1N/A}

1N/A$a =+ 1 ;

1N/Aprint STDERR "The End.\n" ;

1N/AEXPECT

1N/AReversed += operator at - line 8.

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

1N/A

1N/A# Check compile time warning

1N/Ause warnings FATAL => 'all' ;

1N/A{

1N/A no warnings ;

1N/A my $a =+ 1 ;

1N/A}

1N/Amy $a =+ 1 ;

1N/Aprint STDERR "The End.\n" ;

1N/AEXPECT

1N/AReversed += operator at - line 8.

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

1N/A

1N/A# Check runtime scope of pragma

1N/Ause warnings FATAL => 'uninitialized' ;

1N/A{

1N/A no warnings ;

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

1N/A}

1N/Amy $b ; chop $b ;

1N/Aprint STDERR "The End.\n" ;

1N/AEXPECT

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

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

1N/A

1N/A# Check runtime scope of pragma

1N/Ause warnings FATAL => 'all' ;

1N/A{

1N/A no warnings ;

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

1N/A}

1N/Amy $b ; chop $b ;

1N/Aprint STDERR "The End.\n" ;

1N/AEXPECT

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

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

1N/A

1N/A# Check runtime scope of pragma

1N/Ano warnings ;

1N/A{

1N/A use warnings FATAL => 'uninitialized' ;

1N/A $a = sub { my $b ; chop $b ; }

1N/A}

1N/A&$a ;

1N/Aprint STDERR "The End.\n" ;

1N/AEXPECT

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

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

1N/A

1N/A# Check runtime scope of pragma

1N/Ano warnings ;

1N/A{

1N/A use warnings FATAL => 'all' ;

1N/A $a = sub { my $b ; chop $b ; }

1N/A}

1N/A&$a ;

1N/Aprint STDERR "The End.\n" ;

1N/AEXPECT

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

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

1N/A

1N/A--FILE-- abc

1N/A$a =+ 1 ;

1N/A1;

1N/A--FILE--

1N/Ause warnings FATAL => 'syntax' ;

1N/Arequire "./abc";

1N/AEXPECT

1N/A

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

1N/A

1N/A--FILE-- abc

1N/Ause warnings FATAL => 'syntax' ;

1N/A1;

1N/A--FILE--

1N/Arequire "./abc";

1N/A$a =+ 1 ;

1N/AEXPECT

1N/A

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

1N/A

1N/A--FILE-- abc

1N/Ause warnings 'syntax' ;

1N/A$a =+ 1 ;

1N/A1;

1N/A--FILE--

1N/Ause warnings FATAL => 'uninitialized' ;

1N/Arequire "./abc";

1N/Amy $a ; chop $a ;

1N/Aprint STDERR "The End.\n" ;

1N/AEXPECT

1N/AReversed += operator at ./abc line 2.

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

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

1N/A

1N/A--FILE-- abc.pm

1N/Ause warnings 'syntax' ;

1N/A$a =+ 1 ;

1N/A1;

1N/A--FILE--

1N/Ause warnings FATAL => 'uninitialized' ;

1N/Ause abc;

1N/Amy $a ; chop $a ;

1N/Aprint STDERR "The End.\n" ;

1N/AEXPECT

1N/AReversed += operator at abc.pm line 2.

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

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

1N/A

1N/A# Check scope of pragma with eval

1N/Ano warnings ;

1N/Aeval {

1N/A use warnings FATAL => 'uninitialized' ;

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

1N/A}; print STDERR "-- $@" ;

1N/Amy $b ; chop $b ;

1N/Aprint STDERR "The End.\n" ;

1N/AEXPECT

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

1N/AThe End.

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

1N/A

1N/A# Check scope of pragma with eval

1N/Ause warnings FATAL => 'uninitialized' ;

1N/Aeval {

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

1N/A}; print STDERR "-- $@" ;

1N/Amy $b ; chop $b ;

1N/Aprint STDERR "The End.\n" ;

1N/AEXPECT

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

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

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

1N/A

1N/A# Check scope of pragma with eval

1N/Ause warnings FATAL => 'uninitialized' ;

1N/Aeval {

1N/A no warnings ;

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

1N/A}; print STDERR $@ ;

1N/Amy $b ; chop $b ;

1N/Aprint STDERR "The End.\n" ;

1N/AEXPECT

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

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

1N/A

1N/A# Check scope of pragma with eval

1N/Ano warnings ;

1N/Aeval {

1N/A use warnings FATAL => 'syntax' ;

1N/A $a =+ 1 ;

1N/A}; print STDERR "-- $@" ;

1N/A$a =+ 1 ;

1N/Aprint STDERR "The End.\n" ;

1N/AEXPECT

1N/AReversed += operator at - line 6.

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

1N/A

1N/A# Check scope of pragma with eval

1N/Ause warnings FATAL => 'syntax' ;

1N/Aeval {

1N/A $a =+ 1 ;

1N/A}; print STDERR "-- $@" ;

1N/A$a =+ 1 ;

1N/Aprint STDERR "The End.\n" ;

1N/AEXPECT

1N/AReversed += operator at - line 5.

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

1N/A

1N/A# Check scope of pragma with eval

1N/Ause warnings FATAL => 'syntax' ;

1N/Aeval {

1N/A no warnings ;

1N/A $a =+ 1 ;

1N/A}; print STDERR $@ ;

1N/A$a =+ 1 ;

1N/Aprint STDERR "The End.\n" ;

1N/AEXPECT

1N/AReversed += operator at - line 8.

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

1N/A

1N/A# Check scope of pragma with eval

1N/Ano warnings ;

1N/Aeval {

1N/A use warnings FATAL => 'syntax' ;

1N/A}; print STDERR $@ ;

1N/A$a =+ 1 ;

1N/Aprint STDERR "The End.\n" ;

1N/AEXPECT

1N/AThe End.

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

1N/A

1N/A# Check scope of pragma with eval

1N/Ano warnings ;

1N/Aeval q[

1N/A use warnings FATAL => 'uninitialized' ;

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

1N/A]; print STDERR "-- $@";

1N/Amy $b ; chop $b ;

1N/Aprint STDERR "The End.\n" ;

1N/AEXPECT

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

1N/AThe End.

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

1N/A

1N/A# Check scope of pragma with eval

1N/Ause warnings FATAL => 'uninitialized' ;

1N/Aeval '

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

1N/A'; print STDERR "-- $@" ;

1N/Amy $b ; chop $b ;

1N/Aprint STDERR "The End.\n" ;

1N/AEXPECT

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

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

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

1N/A

1N/A# Check scope of pragma with eval

1N/Ause warnings FATAL => 'uninitialized' ;

1N/Aeval '

1N/A no warnings ;

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

1N/A'; print STDERR $@ ;

1N/Amy $b ; chop $b ;

1N/Aprint STDERR "The End.\n" ;

1N/AEXPECT

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

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

1N/A

1N/A# Check scope of pragma with eval

1N/Ano warnings ;

1N/Aeval q[

1N/A use warnings FATAL => 'syntax' ;

1N/A $a =+ 1 ;

1N/A]; print STDERR "-- $@";

1N/A$a =+ 1 ;

1N/Aprint STDERR "The End.\n" ;

1N/AEXPECT

1N/A-- Reversed += operator at (eval 1) line 3.

1N/AThe End.

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

1N/A

1N/A# Check scope of pragma with eval

1N/Ause warnings FATAL => 'syntax' ;

1N/Aeval '

1N/A $a =+ 1 ;

1N/A'; print STDERR "-- $@";

1N/Aprint STDERR "The End.\n" ;

1N/AEXPECT

1N/A-- Reversed += operator at (eval 1) line 2.

1N/AThe End.

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

1N/A

1N/A# Check scope of pragma with eval

1N/Ause warnings FATAL => 'syntax' ;

1N/Aeval '

1N/A no warnings ;

1N/A $a =+ 1 ;

1N/A'; print STDERR "-- $@";

1N/A$a =+ 1 ;

1N/Aprint STDERR "The End.\n" ;

1N/AEXPECT

1N/AReversed += operator at - line 8.

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

1N/A

1N/Ause warnings 'void' ;

1N/A

1N/Atime ;

1N/A

1N/A{

1N/A use warnings FATAL => qw(void) ;

1N/A length "abc" ;

1N/A}

1N/A

1N/Ajoin "", 1,2,3 ;

1N/A

1N/Aprint "done\n" ;

1N/AEXPECT

1N/AUseless use of time in void context at - line 4.

1N/AUseless use of length in void context at - line 8.

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

1N/A

1N/Ause warnings ;

1N/A

1N/Atime ;

1N/A

1N/A{

1N/A use warnings FATAL => qw(void) ;

1N/A length "abc" ;

1N/A}

1N/A

1N/Ajoin "", 1,2,3 ;

1N/A

1N/Aprint "done\n" ;

1N/AEXPECT

1N/AUseless use of time in void context at - line 4.

1N/AUseless use of length in void context at - line 8.

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

1N/A

1N/Ause warnings FATAL => 'all';

1N/A{

1N/A no warnings;

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

1N/A {

1N/A use warnings ;

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

1N/A }

1N/A}

1N/Amy $b ; chop $b;

1N/Aprint STDERR "The End.\n" ;

1N/AEXPECT

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

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

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

1N/A

1N/Ause warnings FATAL => 'all';

1N/A{

1N/A no warnings FATAL => 'all';

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

1N/A {

1N/A use warnings ;

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

1N/A }

1N/A}

1N/Amy $b ; chop $b;

1N/Aprint STDERR "The End.\n" ;

1N/AEXPECT

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

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

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

1N/A

1N/Ause warnings FATAL => 'all';

1N/A{

1N/A no warnings 'syntax';

1N/A {

1N/A use warnings ;

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

1N/A }

1N/A}

1N/Amy $b ; chop $b;

1N/Aprint STDERR "The End.\n" ;

1N/AEXPECT

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

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

1N/A

1N/Ause warnings FATAL => 'syntax', NONFATAL => 'void' ;

1N/A

1N/Alength "abc";

1N/Aprint STDERR "The End.\n" ;

1N/AEXPECT

1N/AUseless use of length in void context at - line 4.

1N/AThe End.

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

1N/A

1N/Ause warnings FATAL => 'all', NONFATAL => 'void' ;

1N/A

1N/Alength "abc";

1N/Aprint STDERR "The End.\n" ;

1N/AEXPECT

1N/AUseless use of length in void context at - line 4.

1N/AThe End.

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

1N/A

1N/Ause warnings FATAL => 'all', NONFATAL => 'void' ;

1N/A

1N/Amy $a ; chomp $a;

1N/Alength "abc";

1N/Aprint STDERR "The End.\n" ;

1N/AEXPECT

1N/AUseless use of length in void context at - line 5.

1N/AUse of uninitialized value in scalar chomp at - line 4.

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

1N/A

1N/Ause warnings FATAL => 'void', NONFATAL => 'void' ;

1N/A

1N/Alength "abc";

1N/Aprint STDERR "The End.\n" ;

1N/AEXPECT

1N/AUseless use of length in void context at - line 4.

1N/AThe End.

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

1N/A

1N/Ause warnings NONFATAL => 'void', FATAL => 'void' ;

1N/A

1N/Alength "abc";

1N/Aprint STDERR "The End.\n" ;

1N/AEXPECT

1N/AUseless use of length in void context at - line 4.

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

1N/A

1N/Ause warnings FATAL => 'all', NONFATAL => 'io';

1N/Ano warnings 'once';

1N/A

1N/Aopen(F, "<true\ncd");

1N/Aclose "fred" ;

1N/Aprint STDERR "The End.\n" ;

1N/AEXPECT

1N/AUnsuccessful open on filename containing newline at - line 5.

1N/Aclose() on unopened filehandle fred at - line 6.

1N/AThe End.

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

1N/A

1N/Ause warnings FATAL => 'all', NONFATAL => 'io', FATAL => 'unopened' ;

1N/Ano warnings 'once';

1N/A

1N/Aopen(F, "<true\ncd");

1N/Aclose "fred" ;

1N/Aprint STDERR "The End.\n" ;

1N/AEXPECT

1N/AUnsuccessful open on filename containing newline at - line 5.

1N/Aclose() on unopened filehandle fred at - line 6.