This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
partly fix perldiag regressions identified by Tom Christiansen
[perl5.git] / t / pragma / warn / 4lint
CommitLineData
599cee73
PM
1Check lint
2
3__END__
4-W
5# lint: check compile time $^W is zapped
6BEGIN { $^W = 0 ;}
7$a = $b = 1 ;
8$a = 1 if $a EQ $b ;
9close STDIN ; print STDIN "abc" ;
10EXPECT
11Use of EQ is deprecated at - line 5.
9a7dcd9c 12print() on closed filehandle main::STDIN at - line 6.
599cee73
PM
13########
14-W
15# lint: check runtime $^W is zapped
16$^W = 0 ;
17close STDIN ; print STDIN "abc" ;
18EXPECT
9a7dcd9c 19print() on closed filehandle main::STDIN at - line 4.
599cee73
PM
20########
21-W
22# lint: check runtime $^W is zapped
23{
24 $^W = 0 ;
25 close STDIN ; print STDIN "abc" ;
26}
27EXPECT
9a7dcd9c 28print() on closed filehandle main::STDIN at - line 5.
599cee73
PM
29########
30-W
4438c4b7
JH
31# lint: check "no warnings" is zapped
32no warnings ;
599cee73
PM
33$a = $b = 1 ;
34$a = 1 if $a EQ $b ;
35close STDIN ; print STDIN "abc" ;
36EXPECT
37Use of EQ is deprecated at - line 5.
9a7dcd9c 38print() on closed filehandle main::STDIN at - line 6.
599cee73
PM
39########
40-W
4438c4b7 41# lint: check "no warnings" is zapped
599cee73 42{
4438c4b7 43 no warnings ;
599cee73
PM
44 close STDIN ; print STDIN "abc" ;
45}
46EXPECT
9a7dcd9c 47print() on closed filehandle main::STDIN at - line 5.
599cee73
PM
48########
49-Ww
50# lint: check combination of -w and -W
51{
52 $^W = 0 ;
53 close STDIN ; print STDIN "abc" ;
54}
55EXPECT
9a7dcd9c 56print() on closed filehandle main::STDIN at - line 5.
599cee73
PM
57########
58-W
59--FILE-- abc.pm
4438c4b7 60no warnings 'deprecated' ;
599cee73
PM
61my ($a, $b) = (0,0);
621 if $a EQ $b ;
631;
64--FILE--
4438c4b7 65no warnings 'uninitialized' ;
599cee73
PM
66use abc;
67my $a ; chop $a ;
68EXPECT
69Use of EQ is deprecated at abc.pm line 3.
b89fed5f 70Use of uninitialized value in scalar chop at - line 3.
599cee73
PM
71########
72-W
73--FILE-- abc
4438c4b7 74no warnings 'deprecated' ;
599cee73
PM
75my ($a, $b) = (0,0);
761 if $a EQ $b ;
771;
78--FILE--
4438c4b7 79no warnings 'uninitialized' ;
599cee73
PM
80require "./abc";
81my $a ; chop $a ;
82EXPECT
83Use of EQ is deprecated at ./abc line 3.
b89fed5f 84Use of uninitialized value in scalar chop at - line 3.
599cee73
PM
85########
86-W
87--FILE-- abc.pm
88BEGIN {$^W = 0}
89my ($a, $b) = (0,0);
901 if $a EQ $b ;
911;
92--FILE--
93$^W = 0 ;
94use abc;
95my $a ; chop $a ;
96EXPECT
97Use of EQ is deprecated at abc.pm line 3.
b89fed5f 98Use of uninitialized value in scalar chop at - line 3.
599cee73
PM
99########
100-W
101--FILE-- abc
102BEGIN {$^W = 0}
103my ($a, $b) = (0,0);
1041 if $a EQ $b ;
1051;
106--FILE--
107$^W = 0 ;
108require "./abc";
109my $a ; chop $a ;
110EXPECT
111Use of EQ is deprecated at ./abc line 3.
b89fed5f 112Use of uninitialized value in scalar chop at - line 3.