This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[differences between cumulative patch application and perl5.003_19]
[perl5.git] / t / pragma / warn-global
1 Check existing $^W functionality
2
3 __END__
4
5 # warnable code, warnings disabled
6 $a =+ 3 ;
7 EXPECT
8
9 ########
10 -w
11 # warnable code, warnings enabled via command line switch
12 $a =+ 3 ;
13 EXPECT
14 Reversed += operator at - line 3.
15 ########
16 #! perl -w
17 # warnable code, warnings enabled via #! line
18 $a =+ 3 ;
19 EXPECT
20 Reversed += operator at - line 3.
21 ########
22
23 # warnable code, warnings enabled via compile time $^W
24 BEGIN { $^W = 1 }
25 $a =+ 3 ;
26 EXPECT
27 Reversed += operator at - line 4.
28 ########
29
30 # compile-time warnable code, warnings enabled via runtime $^W
31 # so no warning printed.
32 $^W = 1 ;
33 $a =+ 3 ;
34 EXPECT
35
36 ########
37
38 # warnable code, warnings enabled via runtime $^W
39 $^W = 1 ;
40 my $b ; chop $b ;
41 EXPECT
42 Use of uninitialized value at - line 4.
43 ########
44
45 # warnings enabled at compile time, disabled at run time
46 BEGIN { $^W = 1 }
47 $^W = 0 ;
48 my $b ; chop $b ;
49 EXPECT
50
51 ########
52
53 # warnings disabled at compile time, enabled at run time
54 BEGIN { $^W = 0 }
55 $^W = 1 ;
56 my $b ; chop $b ;
57 EXPECT
58 Use of uninitialized value at - line 5.
59 ########
60 -w
61 --FILE-- abcd
62 my $b ; chop $b ;
63 1 ;
64 --FILE-- 
65 require "./abcd";
66 EXPECT
67 Use of uninitialized value at ./abcd line 1.
68 ########
69
70 --FILE-- abcd
71 my $b ; chop $b ;
72 1 ;
73 --FILE-- 
74 #! perl -w
75 require "./abcd";
76 EXPECT
77 Use of uninitialized value at ./abcd line 1.
78 ########
79
80 --FILE-- abcd
81 my $b ; chop $b ;
82 1 ;
83 --FILE-- 
84 $^W =1 ;
85 require "./abcd";
86 EXPECT
87 Use of uninitialized value at ./abcd line 1.
88 ########
89
90 --FILE-- abcd
91 $^W = 0;
92 my $b ; chop $b ;
93 1 ;
94 --FILE-- 
95 $^W =1 ;
96 require "./abcd";
97 EXPECT
98
99 ########
100
101 --FILE-- abcd
102 $^W = 1;
103 1 ;
104 --FILE-- 
105 $^W =0 ;
106 require "./abcd";
107 my $b ; chop $b ;
108 EXPECT
109 Use of uninitialized value at - line 3.
110 ########
111
112 $^W = 1;
113 eval "my $b ; chop $b ;" ;
114 EXPECT
115 Use of uninitialized value at - line 3.
116 Use of uninitialized value at - line 3.
117 ########
118
119 eval "$^W = 1;" ;
120 my $b ; chop $b ;
121 EXPECT
122
123 ########
124
125 eval {$^W = 1;} ;
126 my $b ; chop $b ;
127 EXPECT
128 Use of uninitialized value at - line 3.
129 ########
130
131 {
132     local ($^W) = 1;
133 }
134 my $b ; chop $b ;
135 EXPECT
136
137 ########
138
139 my $a ; chop $a ;
140 {
141     local ($^W) = 1;
142     my $b ; chop $b ;
143 }
144 my $c ; chop $c ;
145 EXPECT
146 Use of uninitialized value at - line 5.