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]
106 Non-string passed as bitmask [pp_sselect]
109 # pp_sys.c [pp_untie]
110 use warnings 'untie' ;
111 sub TIESCALAR { bless [] } ;
114 no warnings 'untie' ;
118 untie attempted while 1 inner references still exist at - line 5.
120 # pp_sys.c [pp_leavewrite]
128 Filehandle STDIN opened only for input at - line 5.
130 # pp_sys.c [pp_leavewrite]
131 use warnings 'closed' ;
139 no warnings 'closed' ;
144 write() on closed filehandle STDIN at - line 6.
145 write() on closed filehandle STDIN at - line 8.
146 (Are you trying to call write() on dirhandle STDIN?)
148 # pp_sys.c [pp_leavewrite]
159 open STDOUT, ">".($^O eq 'VMS'? 'NL:' : '/dev/null') ;
164 page overflow at - line 13.
167 use warnings 'unopened' ;
170 no warnings 'unopened' ;
173 printf() on unopened filehandle abc at - line 4.
176 use warnings 'closed' ;
182 no warnings 'closed' ;
187 printf() on closed filehandle STDIN at - line 4.
188 printf() on closed filehandle STDIN at - line 6.
189 (Are you trying to call printf() on dirhandle STDIN?)
197 Filehandle STDIN opened only for input at - line 3.
201 syswrite STDIN, "fred";
203 syswrite STDIN, "fred";
205 Filehandle STDIN opened only for input at - line 3.
208 use warnings 'closed' ;
210 syswrite STDIN, "fred", 1;
212 syswrite STDIN, "fred", 1;
214 no warnings 'closed' ;
215 syswrite STDIN, "fred", 1;
217 syswrite STDIN, "fred", 1;
219 syswrite() on closed filehandle STDIN at - line 4.
220 syswrite() on closed filehandle STDIN at - line 6.
221 (Are you trying to call syswrite() on dirhandle STDIN?)
223 # pp_sys.c [pp_flock]
226 if ( !$Config{d_flock} &&
227 !$Config{d_fcntl_can_lock} &&
228 !$Config{d_lockf} ) {
236 use warnings qw(unopened closed);
243 no warnings qw(unopened closed);
250 flock() on closed filehandle STDIN at - line 16.
251 flock() on closed filehandle STDIN at - line 18.
252 (Are you trying to call flock() on dirhandle STDIN?)
253 flock() on unopened filehandle FOO at - line 19.
254 flock() on unopened filehandle at - line 20.
256 # pp_sys.c [pp_prtf pp_send pp_bind pp_connect pp_listen pp_accept pp_shutdown pp_ssockopt ppp_getpeername]
260 if ( $^O ne 'VMS' and ! $Config{d_socket}) {
265 # connect not present
267 # shutdown not present
268 # setsockopt not present
269 # getsockopt not present
270 # getsockname not present
271 # getpeername not present
277 send STDIN, "fred", 1;
279 connect STDIN, "fred" ;
281 accept "fred", STDIN;
283 setsockopt STDIN, 1,2,3;
284 getsockopt STDIN, 1,2;
288 send STDIN, "fred", 1;
290 connect STDIN, "fred" ;
292 accept "fred", STDIN;
294 setsockopt STDIN, 1,2,3;
295 getsockopt STDIN, 1,2;
300 send STDIN, "fred", 1;
302 connect STDIN, "fred" ;
304 accept STDIN, "fred" ;
306 setsockopt STDIN, 1,2,3;
307 getsockopt STDIN, 1,2;
311 send STDIN, "fred", 1;
313 connect STDIN, "fred" ;
315 accept "fred", STDIN;
317 setsockopt STDIN, 1,2,3;
318 getsockopt STDIN, 1,2;
322 send() on closed socket STDIN at - line 22.
323 bind() on closed socket STDIN at - line 23.
324 connect() on closed socket STDIN at - line 24.
325 listen() on closed socket STDIN at - line 25.
326 accept() on closed socket STDIN at - line 26.
327 shutdown() on closed socket STDIN at - line 27.
328 setsockopt() on closed socket STDIN at - line 28.
329 getsockopt() on closed socket STDIN at - line 29.
330 getsockname() on closed socket STDIN at - line 30.
331 getpeername() on closed socket STDIN at - line 31.
332 send() on closed socket STDIN at - line 33.
333 (Are you trying to call send() on dirhandle STDIN?)
334 bind() on closed socket STDIN at - line 34.
335 (Are you trying to call bind() on dirhandle STDIN?)
336 connect() on closed socket STDIN at - line 35.
337 (Are you trying to call connect() on dirhandle STDIN?)
338 listen() on closed socket STDIN at - line 36.
339 (Are you trying to call listen() on dirhandle STDIN?)
340 accept() on closed socket STDIN at - line 37.
341 (Are you trying to call accept() on dirhandle STDIN?)
342 shutdown() on closed socket STDIN at - line 38.
343 (Are you trying to call shutdown() on dirhandle STDIN?)
344 setsockopt() on closed socket STDIN at - line 39.
345 (Are you trying to call setsockopt() on dirhandle STDIN?)
346 getsockopt() on closed socket STDIN at - line 40.
347 (Are you trying to call getsockopt() on dirhandle STDIN?)
348 getsockname() on closed socket STDIN at - line 41.
349 (Are you trying to call getsockname() on dirhandle STDIN?)
350 getpeername() on closed socket STDIN at - line 42.
351 (Are you trying to call getpeername() on dirhandle STDIN?)
354 use warnings 'newline' ;
356 no warnings 'newline' ;
359 Unsuccessful stat on filename containing newline at - line 3.
361 # pp_sys.c [pp_fttext]
362 use warnings qw(unopened closed) ;
368 no warnings qw(unopened closed) ;
374 -T on closed filehandle STDIN at - line 4.
375 stat() on closed filehandle STDIN at - line 5.
376 -T on unopened filehandle HOCUS at - line 6.
377 stat() on unopened filehandle POCUS at - line 7.
379 # pp_sys.c [pp_fttext]
380 use warnings 'newline' ;
382 no warnings 'newline' ;
385 Unsuccessful open on filename containing newline at - line 3.
387 # pp_sys.c [pp_sysread]
398 my $a = sysread(F, $a,10) ;
400 my $a = sysread(F, $a,10) ;
405 sysread(NONEXISTENT, $a, 10);
406 read(NONEXISTENT, $a, 10);
409 Filehandle F opened only for output at - line 12.
410 sysread() on closed filehandle F at - line 17.
411 read() on closed filehandle F at - line 18.
412 sysread() on unopened filehandle NONEXISTENT at - line 19.
413 read() on unopened filehandle NONEXISTENT at - line 20.
415 # pp_sys.c [pp_binmode]
416 use warnings 'unopened' ;
418 $a = "BLERG";binmode($a);
420 binmode() on unopened filehandle BLARG at - line 3.
421 binmode() on unopened filehandle at - line 4.
423 # pp_sys.c [pp_lstat]
425 open FH, "harness" or die "# $!";
427 open my $fh, $0 or die "# $!";
435 lstat() on filehandle FH at - line 4.
436 lstat() on filehandle $fh at - line 6.
439 use warnings qw(unopened closed) ;
443 # Create an empty file
444 $file = 'getcwarn.tmp';
445 open FH1, ">$file" or die "# $!"; close FH1;
446 open FH2, $file or die "# $!";
447 getc FH2; # Should not warn at EOF
449 getc FH2; # Warns, now
451 no warnings qw(unopened closed) ;
456 getc() on unopened filehandle FOO at - line 3.
457 getc() on closed filehandle STDIN at - line 5.
458 getc() on closed filehandle FH2 at - line 12.
460 # pp_sys.c [pp_sselect]
463 select $x, undef, undef, 1;
465 select $x, undef, undef, 1;
467 Non-string passed as bitmask at - line 4.
471 if (!$Config{d_fchdir}) {
479 opendir FOO, '.'; closedir FOO;
480 open BAR, '.'; close BAR;
481 opendir $dh, '.'; closedir $dh;
482 open $fh, '.'; close $fh;
487 use warnings qw(unopened closed) ;
493 chdir() on unopened filehandle FOO at - line 20.
494 chdir() on closed filehandle BAR at - line 21.
495 chdir() on unopened filehandle $dh at - line 22.
496 chdir() on closed filehandle $fh at - line 23.