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.
200 use warnings 'closed' ;
202 syswrite STDIN, "fred", 1;
204 syswrite STDIN, "fred", 1;
206 no warnings 'closed' ;
207 syswrite STDIN, "fred", 1;
209 syswrite STDIN, "fred", 1;
211 syswrite() on closed filehandle STDIN at - line 4.
212 syswrite() on closed filehandle STDIN at - line 6.
213 (Are you trying to call syswrite() on dirhandle STDIN?)
215 # pp_sys.c [pp_flock]
218 if ( !$Config{d_flock} &&
219 !$Config{d_fcntl_can_lock} &&
220 !$Config{d_lockf} ) {
228 use warnings qw(unopened closed);
235 no warnings qw(unopened closed);
242 flock() on closed filehandle STDIN at - line 16.
243 flock() on closed filehandle STDIN at - line 18.
244 (Are you trying to call flock() on dirhandle STDIN?)
245 flock() on unopened filehandle FOO at - line 19.
246 flock() on unopened filehandle at - line 20.
248 # pp_sys.c [pp_prtf pp_send pp_bind pp_connect pp_listen pp_accept pp_shutdown pp_ssockopt ppp_getpeername]
252 if ( $^O ne 'VMS' and ! $Config{d_socket}) {
257 # connect not present
259 # shutdown not present
260 # setsockopt not present
261 # getsockopt not present
262 # getsockname not present
263 # getpeername not present
269 send STDIN, "fred", 1;
271 connect STDIN, "fred" ;
273 accept "fred", STDIN;
275 setsockopt STDIN, 1,2,3;
276 getsockopt STDIN, 1,2;
280 send STDIN, "fred", 1;
282 connect STDIN, "fred" ;
284 accept "fred", STDIN;
286 setsockopt STDIN, 1,2,3;
287 getsockopt STDIN, 1,2;
292 send STDIN, "fred", 1;
294 connect STDIN, "fred" ;
296 accept STDIN, "fred" ;
298 setsockopt STDIN, 1,2,3;
299 getsockopt STDIN, 1,2;
303 send STDIN, "fred", 1;
305 connect STDIN, "fred" ;
307 accept "fred", STDIN;
309 setsockopt STDIN, 1,2,3;
310 getsockopt STDIN, 1,2;
314 send() on closed socket STDIN at - line 22.
315 bind() on closed socket STDIN at - line 23.
316 connect() on closed socket STDIN at - line 24.
317 listen() on closed socket STDIN at - line 25.
318 accept() on closed socket STDIN at - line 26.
319 shutdown() on closed socket STDIN at - line 27.
320 setsockopt() on closed socket STDIN at - line 28.
321 getsockopt() on closed socket STDIN at - line 29.
322 getsockname() on closed socket STDIN at - line 30.
323 getpeername() on closed socket STDIN at - line 31.
324 send() on closed socket STDIN at - line 33.
325 (Are you trying to call send() on dirhandle STDIN?)
326 bind() on closed socket STDIN at - line 34.
327 (Are you trying to call bind() on dirhandle STDIN?)
328 connect() on closed socket STDIN at - line 35.
329 (Are you trying to call connect() on dirhandle STDIN?)
330 listen() on closed socket STDIN at - line 36.
331 (Are you trying to call listen() on dirhandle STDIN?)
332 accept() on closed socket STDIN at - line 37.
333 (Are you trying to call accept() on dirhandle STDIN?)
334 shutdown() on closed socket STDIN at - line 38.
335 (Are you trying to call shutdown() on dirhandle STDIN?)
336 setsockopt() on closed socket STDIN at - line 39.
337 (Are you trying to call setsockopt() on dirhandle STDIN?)
338 getsockopt() on closed socket STDIN at - line 40.
339 (Are you trying to call getsockopt() on dirhandle STDIN?)
340 getsockname() on closed socket STDIN at - line 41.
341 (Are you trying to call getsockname() on dirhandle STDIN?)
342 getpeername() on closed socket STDIN at - line 42.
343 (Are you trying to call getpeername() on dirhandle STDIN?)
346 use warnings 'newline' ;
348 no warnings 'newline' ;
351 Unsuccessful stat on filename containing newline at - line 3.
353 # pp_sys.c [pp_fttext]
354 use warnings qw(unopened closed) ;
360 no warnings qw(unopened closed) ;
366 -T on closed filehandle STDIN at - line 4.
367 stat() on closed filehandle STDIN at - line 5.
368 -T on unopened filehandle HOCUS at - line 6.
369 stat() on unopened filehandle POCUS at - line 7.
371 # pp_sys.c [pp_fttext]
372 use warnings 'newline' ;
374 no warnings 'newline' ;
377 Unsuccessful open on filename containing newline at - line 3.
379 # pp_sys.c [pp_sysread]
390 my $a = sysread(F, $a,10) ;
392 my $a = sysread(F, $a,10) ;
397 sysread(NONEXISTENT, $a, 10);
398 read(NONEXISTENT, $a, 10);
401 Filehandle F opened only for output at - line 12.
402 sysread() on closed filehandle F at - line 17.
403 read() on closed filehandle F at - line 18.
404 sysread() on unopened filehandle NONEXISTENT at - line 19.
405 read() on unopened filehandle NONEXISTENT at - line 20.
407 # pp_sys.c [pp_binmode]
408 use warnings 'unopened' ;
410 $a = "BLERG";binmode($a);
412 binmode() on unopened filehandle BLARG at - line 3.
413 binmode() on unopened filehandle at - line 4.
415 # pp_sys.c [pp_lstat]
417 open FH, "harness" or die "# $!";
419 open my $fh, $0 or die "# $!";
427 lstat() on filehandle FH at - line 4.
428 lstat() on filehandle $fh at - line 6.
431 use warnings qw(unopened closed) ;
435 # Create an empty file
436 $file = 'getcwarn.tmp';
437 open FH1, ">$file" or die "# $!"; close FH1;
438 open FH2, $file or die "# $!";
439 getc FH2; # Should not warn at EOF
441 getc FH2; # Warns, now
443 no warnings qw(unopened closed) ;
448 getc() on unopened filehandle FOO at - line 3.
449 getc() on closed filehandle STDIN at - line 5.
450 getc() on closed filehandle FH2 at - line 12.
452 # pp_sys.c [pp_sselect]
455 select $x, undef, undef, undef;
457 select $x, undef, undef, undef;
459 Non-string passed as bitmask at - line 4.
461 opendir FOO, '.'; closedir FOO;
462 open BAR, '.'; close BAR;
463 opendir $dh, '.'; closedir $dh;
464 open $fh, '.'; close $fh;
469 use warnings qw(unopened closed) ;
475 chdir() on unopened filehandle FOO at - line 10.
476 chdir() on closed filehandle BAR at - line 11.
477 chdir() on unopened filehandle $dh at - line 12.
478 chdir() on closed filehandle $fh at - line 13.