3 untie attempted while %d inner references still exist [pp_untie]
4 sub TIESCALAR { bless [] } ; tie $a, 'main'; untie $a ;
6 Filehandle %s opened only for input [pp_leavewrite]
11 write() on closed filehandle %s [pp_leavewrite]
17 page overflow [pp_leavewrite]
19 Filehandle %s never opened [pp_prtf]
20 $a = "abc"; printf $a "fred"
22 Filehandle %s opened only for input [pp_prtf]
26 printf() on closed filehandle %s [pp_prtf]
30 syswrite() on closed filehandle %s [pp_send]
32 syswrite STDIN, "fred", 1;
34 send() on closed socket %s [pp_send]
38 bind() on closed socket %s [pp_bind]
43 connect() on closed socket %s [pp_connect]
45 connect STDIN, "fred" ;
47 listen() on closed socket %s [pp_listen]
51 accept() on closed socket %s [pp_accept]
53 accept "fred", STDIN ;
55 shutdown() on closed socket %s [pp_shutdown]
59 setsockopt() on closed socket %s [pp_ssockopt]
60 getsockopt() on closed socket %s [pp_ssockopt]
62 setsockopt STDIN, 1,2,3;
63 getsockopt STDIN, 1,2;
65 getsockname() on closed socket %s [pp_getpeername]
66 getpeername() on closed socket %s [pp_getpeername]
71 flock() on closed socket %s [pp_flock]
75 warn(warn_nl, "stat"); [pp_stat]
77 Test on unopened file <%s>
78 close STDIN ; -T STDIN ;
80 warn(warn_nl, "open"); [pp_fttext]
83 Filehandle %s opened only for output [pp_sysread]
86 my $a = sysread(F, $a,10) ;
92 use warnings 'untie' ;
93 sub TIESCALAR { bless [] } ;
100 untie attempted while 1 inner references still exist at - line 5.
102 # pp_sys.c [pp_leavewrite]
110 Filehandle main::STDIN opened only for input at - line 5.
112 # pp_sys.c [pp_leavewrite]
113 use warnings 'closed' ;
121 no warnings 'closed' ;
126 write() on closed filehandle main::STDIN at - line 6.
127 write() on closed filehandle main::STDIN at - line 8.
128 (Are you trying to call write() on dirhandle main::STDIN?)
130 # pp_sys.c [pp_leavewrite]
141 open STDOUT, ">".($^O eq 'VMS'? 'NL:' : '/dev/null') ;
146 page overflow at - line 13.
149 use warnings 'unopened' ;
152 no warnings 'unopened' ;
155 Filehandle main::abc never opened at - line 4.
158 use warnings 'closed' ;
164 no warnings 'closed' ;
169 printf() on closed filehandle main::STDIN at - line 4.
170 printf() on closed filehandle main::STDIN at - line 6.
171 (Are you trying to call printf() on dirhandle main::STDIN?)
179 Filehandle main::STDIN opened only for input at - line 3.
182 use warnings 'closed' ;
184 syswrite STDIN, "fred", 1;
186 syswrite STDIN, "fred", 1;
188 no warnings 'closed' ;
189 syswrite STDIN, "fred", 1;
191 syswrite STDIN, "fred", 1;
193 syswrite() on closed filehandle main::STDIN at - line 4.
194 syswrite() on closed filehandle main::STDIN at - line 6.
195 (Are you trying to call syswrite() on dirhandle main::STDIN?)
197 # pp_sys.c [pp_flock]
198 use warnings 'closed' ;
203 no warnings 'closed' ;
208 flock() on closed filehandle main::STDIN at - line 4.
209 flock() on closed filehandle main::STDIN at - line 6.
210 (Are you trying to call flock() on dirhandle main::STDIN?)
212 # pp_sys.c [pp_prtf pp_send pp_bind pp_connect pp_listen pp_accept pp_shutdown pp_ssockopt ppp_getpeername]
216 if ( $^O ne 'VMS' and ! $Config{d_socket}) {
221 # connect not present
223 # shutdown not present
224 # setsockopt not present
225 # getsockopt not present
226 # getsockname not present
227 # getpeername not present
233 send STDIN, "fred", 1;
235 connect STDIN, "fred" ;
237 accept "fred", STDIN;
239 setsockopt STDIN, 1,2,3;
240 getsockopt STDIN, 1,2;
244 send STDIN, "fred", 1;
246 connect STDIN, "fred" ;
248 accept "fred", STDIN;
250 setsockopt STDIN, 1,2,3;
251 getsockopt STDIN, 1,2;
256 send STDIN, "fred", 1;
258 connect STDIN, "fred" ;
260 accept STDIN, "fred" ;
262 setsockopt STDIN, 1,2,3;
263 getsockopt STDIN, 1,2;
267 send STDIN, "fred", 1;
269 connect STDIN, "fred" ;
271 accept "fred", STDIN;
273 setsockopt STDIN, 1,2,3;
274 getsockopt STDIN, 1,2;
278 send() on closed socket main::STDIN at - line 22.
279 bind() on closed socket main::STDIN at - line 23.
280 connect() on closed socket main::STDIN at - line 24.
281 listen() on closed socket main::STDIN at - line 25.
282 accept() on closed socket main::STDIN at - line 26.
283 shutdown() on closed socket main::STDIN at - line 27.
284 setsockopt() on closed socket main::STDIN at - line 28.
285 getsockopt() on closed socket main::STDIN at - line 29.
286 getsockname() on closed socket main::STDIN at - line 30.
287 getpeername() on closed socket main::STDIN at - line 31.
288 send() on closed socket main::STDIN at - line 33.
289 (Are you trying to call send() on dirhandle main::STDIN?)
290 bind() on closed socket main::STDIN at - line 34.
291 (Are you trying to call bind() on dirhandle main::STDIN?)
292 connect() on closed socket main::STDIN at - line 35.
293 (Are you trying to call connect() on dirhandle main::STDIN?)
294 listen() on closed socket main::STDIN at - line 36.
295 (Are you trying to call listen() on dirhandle main::STDIN?)
296 accept() on closed socket main::STDIN at - line 37.
297 (Are you trying to call accept() on dirhandle main::STDIN?)
298 shutdown() on closed socket main::STDIN at - line 38.
299 (Are you trying to call shutdown() on dirhandle main::STDIN?)
300 setsockopt() on closed socket main::STDIN at - line 39.
301 (Are you trying to call setsockopt() on dirhandle main::STDIN?)
302 getsockopt() on closed socket main::STDIN at - line 40.
303 (Are you trying to call getsockopt() on dirhandle main::STDIN?)
304 getsockname() on closed socket main::STDIN at - line 41.
305 (Are you trying to call getsockname() on dirhandle main::STDIN?)
306 getpeername() on closed socket main::STDIN at - line 42.
307 (Are you trying to call getpeername() on dirhandle main::STDIN?)
310 use warnings 'newline' ;
312 no warnings 'newline' ;
315 Unsuccessful stat on filename containing newline at - line 3.
317 # pp_sys.c [pp_fttext]
318 use warnings 'unopened' ;
321 no warnings 'unopened' ;
324 Test on unopened file <STDIN> at - line 4.
326 # pp_sys.c [pp_fttext]
327 use warnings 'newline' ;
329 no warnings 'newline' ;
332 Unsuccessful open on filename containing newline at - line 3.
334 # pp_sys.c [pp_sysread]
338 my $a = sysread(F, $a,10) ;
340 my $a = sysread(F, $a,10) ;
344 Filehandle main::F opened only for output at - line 5.