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 fd [pp_bind]
43 connect() on closed fd [pp_connect]
45 connect STDIN, "fred" ;
47 listen() on closed fd [pp_listen]
51 accept() on closed fd [pp_accept]
53 accept STDIN, "fred" ;
55 shutdown() on closed fd [pp_shutdown]
59 [gs]etsockopt() on closed fd [pp_ssockopt]
61 setsockopt STDIN, 1,2,3;
62 getsockopt STDIN, 1,2;
64 get{sock, peer}name() on closed fd [pp_getpeername]
69 warn(warn_nl, "stat"); [pp_stat]
71 Test on unopened file <%s>
72 close STDIN ; -T STDIN ;
74 warn(warn_nl, "open"); [pp_fttext]
77 Filehandle %s opened only for output [pp_sysread]
80 my $a = sysread(F, $a,10) ;
86 use warnings 'untie' ;
87 sub TIESCALAR { bless [] } ;
94 untie attempted while 1 inner references still exist at - line 5.
96 # pp_sys.c [pp_leavewrite]
104 Filehandle main::STDIN opened only for input at - line 5.
106 # pp_sys.c [pp_leavewrite]
107 use warnings 'closed' ;
112 no warnings 'closed' ;
115 Write on closed filehandle main::STDIN at - line 6.
117 # pp_sys.c [pp_leavewrite]
128 open STDOUT, ">".($^O eq 'VMS'? 'NL:' : '/dev/null') ;
133 page overflow at - line 13.
136 use warnings 'unopened' ;
139 no warnings 'unopened' ;
142 Filehandle main::abc never opened at - line 4.
145 use warnings 'closed' ;
148 no warnings 'closed' ;
151 printf on closed filehandle main::STDIN at - line 4.
159 Filehandle main::STDIN opened only for input at - line 3.
162 use warnings 'closed' ;
164 syswrite STDIN, "fred", 1;
165 no warnings 'closed' ;
166 syswrite STDIN, "fred", 1;
168 Syswrite on closed filehandle at - line 4.
170 # pp_sys.c [pp_prtf pp_send pp_bind pp_connect pp_listen pp_accept pp_shutdown pp_ssockopt ppp_getpeername]
174 if ( $^O ne 'VMS' and ! $Config{d_socket}) {
179 # connect not present
181 # shutdown not present
182 # setsockopt not present
183 # getsockopt not present
184 # getsockname not present
185 # getpeername not present
191 send STDIN, "fred", 1;
193 connect STDIN, "fred" ;
195 accept STDIN, "fred" ;
197 setsockopt STDIN, 1,2,3;
198 getsockopt STDIN, 1,2;
202 send STDIN, "fred", 1;
204 connect STDIN, "fred" ;
206 accept STDIN, "fred" ;
208 setsockopt STDIN, 1,2,3;
209 getsockopt STDIN, 1,2;
213 Send on closed socket at - line 22.
214 bind() on closed fd at - line 23.
215 connect() on closed fd at - line 24.
216 listen() on closed fd at - line 25.
217 accept() on closed fd at - line 26.
218 shutdown() on closed fd at - line 27.
219 [gs]etsockopt() on closed fd at - line 28.
220 [gs]etsockopt() on closed fd at - line 29.
221 get{sock, peer}name() on closed fd at - line 30.
222 get{sock, peer}name() on closed fd at - line 31.
225 use warnings 'newline' ;
227 no warnings 'newline' ;
230 Unsuccessful stat on filename containing newline at - line 3.
232 # pp_sys.c [pp_fttext]
233 use warnings 'unopened' ;
236 no warnings 'unopened' ;
239 Test on unopened file <STDIN> at - line 4.
241 # pp_sys.c [pp_fttext]
242 use warnings 'newline' ;
244 no warnings 'newline' ;
247 Unsuccessful open on filename containing newline at - line 3.
249 # pp_sys.c [pp_sysread]
253 my $a = sysread(F, $a,10) ;
255 my $a = sysread(F, $a,10) ;
259 Filehandle main::F opened only for output at - line 5.