3 untie attempted while %d inner references still exist [pp_untie]
4 sub TIESCALAR { bless [] } ; tie $a, 'main'; untie $a ;
6 fileno() on unopened filehandle abc [pp_fileno]
9 binmode() on unopened filehandle abc [pp_binmode]
10 $a = "abc"; fileno($a)
12 printf() on unopened filehandle abc [pp_prtf]
13 $a = "abc"; printf $a "fred"
15 Filehandle %s opened only for input [pp_leavewrite]
20 write() on closed filehandle %s [pp_leavewrite]
26 page overflow [pp_leavewrite]
28 printf() on unopened filehandle abc [pp_prtf]
29 $a = "abc"; printf $a "fred"
31 Filehandle %s opened only for input [pp_prtf]
35 printf() on closed filehandle %s [pp_prtf]
39 syswrite() on closed filehandle %s [pp_send]
41 syswrite STDIN, "fred", 1;
43 send() on closed socket %s [pp_send]
47 bind() on closed socket %s [pp_bind]
52 connect() on closed socket %s [pp_connect]
54 connect STDIN, "fred" ;
56 listen() on closed socket %s [pp_listen]
60 accept() on closed socket %s [pp_accept]
62 accept "fred", STDIN ;
64 shutdown() on closed socket %s [pp_shutdown]
68 setsockopt() on closed socket %s [pp_ssockopt]
69 getsockopt() on closed socket %s [pp_ssockopt]
71 setsockopt STDIN, 1,2,3;
72 getsockopt STDIN, 1,2;
74 getsockname() on closed socket %s [pp_getpeername]
75 getpeername() on closed socket %s [pp_getpeername]
80 flock() on closed socket %s [pp_flock]
81 flock() on closed socket [pp_flock]
86 warn(warn_nl, "stat"); [pp_stat]
88 -T on closed filehandle %s
89 stat() on closed filehandle %s
90 close STDIN ; -T STDIN ; stat(STDIN) ;
92 warn(warn_nl, "open"); [pp_fttext]
95 Filehandle %s opened only for output [pp_sysread]
98 my $a = sysread(F, $a,10) ;
100 lstat on filehandle %s [pp_lstat]
102 getc() on unopened filehandle [pp_getc]
104 getc() on closed filehandle [pp_getc]
107 # pp_sys.c [pp_untie]
108 use warnings 'untie' ;
109 sub TIESCALAR { bless [] } ;
112 no warnings 'untie' ;
116 untie attempted while 1 inner references still exist at - line 5.
118 # pp_sys.c [pp_leavewrite]
126 Filehandle STDIN opened only for input at - line 5.
128 # pp_sys.c [pp_leavewrite]
129 use warnings 'closed' ;
137 no warnings 'closed' ;
142 write() on closed filehandle STDIN at - line 6.
143 write() on closed filehandle STDIN at - line 8.
144 (Are you trying to call write() on dirhandle STDIN?)
146 # pp_sys.c [pp_leavewrite]
157 open STDOUT, ">".($^O eq 'VMS'? 'NL:' : '/dev/null') ;
162 page overflow at - line 13.
165 use warnings 'unopened' ;
168 no warnings 'unopened' ;
171 printf() on unopened filehandle abc at - line 4.
174 use warnings 'closed' ;
180 no warnings 'closed' ;
185 printf() on closed filehandle STDIN at - line 4.
186 printf() on closed filehandle STDIN at - line 6.
187 (Are you trying to call printf() on dirhandle STDIN?)
195 Filehandle STDIN opened only for input at - line 3.
198 use warnings 'closed' ;
200 syswrite STDIN, "fred", 1;
202 syswrite STDIN, "fred", 1;
204 no warnings 'closed' ;
205 syswrite STDIN, "fred", 1;
207 syswrite STDIN, "fred", 1;
209 syswrite() on closed filehandle STDIN at - line 4.
210 syswrite() on closed filehandle STDIN at - line 6.
211 (Are you trying to call syswrite() on dirhandle STDIN?)
213 # pp_sys.c [pp_flock]
216 if ( !$Config{d_flock} &&
217 !$Config{d_fcntl_can_lock} &&
218 !$Config{d_lockf} ) {
226 use warnings qw(unopened closed);
233 no warnings qw(unopened closed);
240 flock() on closed filehandle STDIN at - line 16.
241 flock() on closed filehandle STDIN at - line 18.
242 (Are you trying to call flock() on dirhandle STDIN?)
243 flock() on unopened filehandle FOO at - line 19.
244 flock() on unopened filehandle at - line 20.
246 # pp_sys.c [pp_prtf pp_send pp_bind pp_connect pp_listen pp_accept pp_shutdown pp_ssockopt ppp_getpeername]
250 if ( $^O ne 'VMS' and ! $Config{d_socket}) {
255 # connect not present
257 # shutdown not present
258 # setsockopt not present
259 # getsockopt not present
260 # getsockname not present
261 # getpeername not present
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 STDIN, "fred", 1;
280 connect STDIN, "fred" ;
282 accept "fred", STDIN;
284 setsockopt STDIN, 1,2,3;
285 getsockopt STDIN, 1,2;
290 send STDIN, "fred", 1;
292 connect STDIN, "fred" ;
294 accept STDIN, "fred" ;
296 setsockopt STDIN, 1,2,3;
297 getsockopt STDIN, 1,2;
301 send STDIN, "fred", 1;
303 connect STDIN, "fred" ;
305 accept "fred", STDIN;
307 setsockopt STDIN, 1,2,3;
308 getsockopt STDIN, 1,2;
312 send() on closed socket STDIN at - line 22.
313 bind() on closed socket STDIN at - line 23.
314 connect() on closed socket STDIN at - line 24.
315 listen() on closed socket STDIN at - line 25.
316 accept() on closed socket STDIN at - line 26.
317 shutdown() on closed socket STDIN at - line 27.
318 setsockopt() on closed socket STDIN at - line 28.
319 getsockopt() on closed socket STDIN at - line 29.
320 getsockname() on closed socket STDIN at - line 30.
321 getpeername() on closed socket STDIN at - line 31.
322 send() on closed socket STDIN at - line 33.
323 (Are you trying to call send() on dirhandle STDIN?)
324 bind() on closed socket STDIN at - line 34.
325 (Are you trying to call bind() on dirhandle STDIN?)
326 connect() on closed socket STDIN at - line 35.
327 (Are you trying to call connect() on dirhandle STDIN?)
328 listen() on closed socket STDIN at - line 36.
329 (Are you trying to call listen() on dirhandle STDIN?)
330 accept() on closed socket STDIN at - line 37.
331 (Are you trying to call accept() on dirhandle STDIN?)
332 shutdown() on closed socket STDIN at - line 38.
333 (Are you trying to call shutdown() on dirhandle STDIN?)
334 setsockopt() on closed socket STDIN at - line 39.
335 (Are you trying to call setsockopt() on dirhandle STDIN?)
336 getsockopt() on closed socket STDIN at - line 40.
337 (Are you trying to call getsockopt() on dirhandle STDIN?)
338 getsockname() on closed socket STDIN at - line 41.
339 (Are you trying to call getsockname() on dirhandle STDIN?)
340 getpeername() on closed socket STDIN at - line 42.
341 (Are you trying to call getpeername() on dirhandle STDIN?)
344 use warnings 'newline' ;
346 no warnings 'newline' ;
349 Unsuccessful stat on filename containing newline at - line 3.
351 # pp_sys.c [pp_fttext]
352 use warnings qw(unopened closed) ;
358 no warnings qw(unopened closed) ;
364 -T on closed filehandle STDIN at - line 4.
365 stat() on closed filehandle STDIN at - line 5.
366 -T on unopened filehandle HOCUS at - line 6.
367 stat() on unopened filehandle POCUS at - line 7.
369 # pp_sys.c [pp_fttext]
370 use warnings 'newline' ;
372 no warnings 'newline' ;
375 Unsuccessful open on filename containing newline at - line 3.
377 # pp_sys.c [pp_sysread]
388 my $a = sysread(F, $a,10) ;
390 my $a = sysread(F, $a,10) ;
394 Filehandle F opened only for output at - line 12.
396 # pp_sys.c [pp_binmode]
397 use warnings 'unopened' ;
399 $a = "BLERG";binmode($a);
401 binmode() on unopened filehandle BLARG at - line 3.
402 binmode() on unopened filehandle at - line 4.
404 # pp_sys.c [pp_lstat]
407 open my $fh, $0 or die "# $!";
414 lstat() on filehandle STDIN at - line 3.
415 lstat() on filehandle $fh at - line 5.
418 use warnings qw(unopened closed) ;
422 # Create an empty file
423 $file = 'getcwarn.tmp';
424 open FH1, ">$file" or die "# $!"; close FH1;
425 open FH2, $file or die "# $!";
426 getc FH2; # Should not warn at EOF
428 getc FH2; # Warns, now
430 no warnings qw(unopened closed) ;
435 getc() on unopened filehandle FOO at - line 3.
436 getc() on closed filehandle STDIN at - line 5.
437 getc() on closed filehandle FH2 at - line 12.