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 [pp_send]
32 syswrite STDIN, "fred", 1;
34 send() on closed socket [pp_send]
38 bind() on closed socket [pp_bind]
43 connect() on closed socket [pp_connect]
45 connect STDIN, "fred" ;
47 listen() on closed socket [pp_listen]
51 accept() on closed socket [pp_accept]
53 accept STDIN, "fred" ;
55 shutdown() on closed socket [pp_shutdown]
59 setsockopt() on closed socket [pp_ssockopt]
60 getsockopt() on closed socket [pp_ssockopt]
62 setsockopt STDIN, 1,2,3;
63 getsockopt STDIN, 1,2;
65 getsockname() on closed socket [pp_getpeername]
66 getpeername() on closed socket [pp_getpeername]
71 warn(warn_nl, "stat"); [pp_stat]
73 Test on unopened file <%s>
74 close STDIN ; -T STDIN ;
76 warn(warn_nl, "open"); [pp_fttext]
79 Filehandle %s opened only for output [pp_sysread]
82 my $a = sysread(F, $a,10) ;
88 use warnings 'untie' ;
89 sub TIESCALAR { bless [] } ;
96 untie attempted while 1 inner references still exist at - line 5.
98 # pp_sys.c [pp_leavewrite]
106 Filehandle main::STDIN opened only for input at - line 5.
108 # pp_sys.c [pp_leavewrite]
109 use warnings 'closed' ;
114 no warnings 'closed' ;
117 write() on closed filehandle main::STDIN at - line 6.
119 # pp_sys.c [pp_leavewrite]
130 open STDOUT, ">".($^O eq 'VMS'? 'NL:' : '/dev/null') ;
135 page overflow at - line 13.
138 use warnings 'unopened' ;
141 no warnings 'unopened' ;
144 Filehandle main::abc never opened at - line 4.
147 use warnings 'closed' ;
150 no warnings 'closed' ;
153 printf() on closed filehandle main::STDIN at - line 4.
161 Filehandle main::STDIN opened only for input at - line 3.
164 use warnings 'closed' ;
166 syswrite STDIN, "fred", 1;
167 no warnings 'closed' ;
168 syswrite STDIN, "fred", 1;
170 syswrite() on closed filehandle at - line 4.
172 # pp_sys.c [pp_prtf pp_send pp_bind pp_connect pp_listen pp_accept pp_shutdown pp_ssockopt ppp_getpeername]
176 if ( $^O ne 'VMS' and ! $Config{d_socket}) {
181 # connect not present
183 # shutdown not present
184 # setsockopt not present
185 # getsockopt not present
186 # getsockname not present
187 # getpeername not present
193 send STDIN, "fred", 1;
195 connect STDIN, "fred" ;
197 accept STDIN, "fred" ;
199 setsockopt STDIN, 1,2,3;
200 getsockopt STDIN, 1,2;
204 send STDIN, "fred", 1;
206 connect STDIN, "fred" ;
208 accept STDIN, "fred" ;
210 setsockopt STDIN, 1,2,3;
211 getsockopt STDIN, 1,2;
215 send() on closed socket at - line 22.
216 bind() on closed socket at - line 23.
217 connect() on closed socket at - line 24.
218 listen() on closed socket at - line 25.
219 accept() on closed socket at - line 26.
220 shutdown() on closed socket at - line 27.
221 setsockopt() on closed socket at - line 28.
222 getsockopt() on closed socket at - line 29.
223 getsockname() on closed socket at - line 30.
224 getpeername() on closed socket at - line 31.
227 use warnings 'newline' ;
229 no warnings 'newline' ;
232 Unsuccessful stat on filename containing newline at - line 3.
234 # pp_sys.c [pp_fttext]
235 use warnings 'unopened' ;
238 no warnings 'unopened' ;
241 Test on unopened file <STDIN> at - line 4.
243 # pp_sys.c [pp_fttext]
244 use warnings 'newline' ;
246 no warnings 'newline' ;
249 Unsuccessful open on filename containing newline at - line 3.
251 # pp_sys.c [pp_sysread]
255 my $a = sysread(F, $a,10) ;
257 my $a = sysread(F, $a,10) ;
261 Filehandle main::F opened only for output at - line 5.