Commit | Line | Data |
599cee73 |
1 | pp_sys.c AOK |
2 | |
767a6a26 |
3 | untie attempted while %d inner references still exist [pp_untie] |
599cee73 |
4 | sub TIESCALAR { bless [] } ; tie $a, 'main'; untie $a ; |
5 | |
767a6a26 |
6 | Filehandle %s opened only for input [pp_leavewrite] |
599cee73 |
7 | format STDIN = |
8 | . |
9 | write STDIN; |
10 | |
9a7dcd9c |
11 | write() on closed filehandle %s [pp_leavewrite] |
599cee73 |
12 | format STDIN = |
13 | . |
14 | close STDIN; |
15 | write STDIN ; |
16 | |
767a6a26 |
17 | page overflow [pp_leavewrite] |
599cee73 |
18 | |
767a6a26 |
19 | Filehandle %s never opened [pp_prtf] |
599cee73 |
20 | $a = "abc"; printf $a "fred" |
21 | |
767a6a26 |
22 | Filehandle %s opened only for input [pp_prtf] |
599cee73 |
23 | $a = "abc"; |
24 | printf $a "fred" |
25 | |
9a7dcd9c |
26 | printf() on closed filehandle %s [pp_prtf] |
599cee73 |
27 | close STDIN ; |
28 | printf STDIN "fred" |
29 | |
69282e91 |
30 | syswrite() on closed filehandle %s [pp_send] |
599cee73 |
31 | close STDIN; |
32 | syswrite STDIN, "fred", 1; |
33 | |
69282e91 |
34 | send() on closed socket %s [pp_send] |
599cee73 |
35 | close STDIN; |
36 | send STDIN, "fred", 1 |
37 | |
69282e91 |
38 | bind() on closed socket %s [pp_bind] |
599cee73 |
39 | close STDIN; |
40 | bind STDIN, "fred" ; |
41 | |
42 | |
69282e91 |
43 | connect() on closed socket %s [pp_connect] |
599cee73 |
44 | close STDIN; |
45 | connect STDIN, "fred" ; |
46 | |
69282e91 |
47 | listen() on closed socket %s [pp_listen] |
599cee73 |
48 | close STDIN; |
49 | listen STDIN, 2; |
50 | |
69282e91 |
51 | accept() on closed socket %s [pp_accept] |
599cee73 |
52 | close STDIN; |
69282e91 |
53 | accept "fred", STDIN ; |
599cee73 |
54 | |
69282e91 |
55 | shutdown() on closed socket %s [pp_shutdown] |
599cee73 |
56 | close STDIN; |
57 | shutdown STDIN, 0; |
58 | |
69282e91 |
59 | setsockopt() on closed socket %s [pp_ssockopt] |
60 | getsockopt() on closed socket %s [pp_ssockopt] |
599cee73 |
61 | close STDIN; |
62 | setsockopt STDIN, 1,2,3; |
63 | getsockopt STDIN, 1,2; |
64 | |
69282e91 |
65 | getsockname() on closed socket %s [pp_getpeername] |
66 | getpeername() on closed socket %s [pp_getpeername] |
599cee73 |
67 | close STDIN; |
68 | getsockname STDIN; |
69 | getpeername STDIN; |
70 | |
69282e91 |
71 | flock() on closed socket %s [pp_flock] |
72 | close STDIN; |
73 | flock STDIN, 8; |
74 | |
767a6a26 |
75 | warn(warn_nl, "stat"); [pp_stat] |
599cee73 |
76 | |
9ddeeac9 |
77 | -T on unopened filehandle %s |
78 | stat() on unopened filehandle %s |
599cee73 |
79 | close STDIN ; -T STDIN ; |
80 | |
767a6a26 |
81 | warn(warn_nl, "open"); [pp_fttext] |
599cee73 |
82 | -T "abc\ndef" ; |
83 | |
767a6a26 |
84 | Filehandle %s opened only for output [pp_sysread] |
85 | my $file = "./xcv" ; |
86 | open(F, ">$file") ; |
87 | my $a = sysread(F, $a,10) ; |
88 | |
599cee73 |
89 | |
90 | |
91 | __END__ |
767a6a26 |
92 | # pp_sys.c [pp_untie] |
4438c4b7 |
93 | use warnings 'untie' ; |
599cee73 |
94 | sub TIESCALAR { bless [] } ; |
95 | $b = tie $a, 'main'; |
96 | untie $a ; |
4438c4b7 |
97 | no warnings 'untie' ; |
0453d815 |
98 | $c = tie $d, 'main'; |
99 | untie $d ; |
599cee73 |
100 | EXPECT |
101 | untie attempted while 1 inner references still exist at - line 5. |
102 | ######## |
767a6a26 |
103 | # pp_sys.c [pp_leavewrite] |
4438c4b7 |
104 | use warnings 'io' ; |
599cee73 |
105 | format STDIN = |
106 | . |
107 | write STDIN; |
4438c4b7 |
108 | no warnings 'io' ; |
0453d815 |
109 | write STDIN; |
599cee73 |
110 | EXPECT |
43693395 |
111 | Filehandle STDIN opened only for input at - line 5. |
599cee73 |
112 | ######## |
767a6a26 |
113 | # pp_sys.c [pp_leavewrite] |
4438c4b7 |
114 | use warnings 'closed' ; |
599cee73 |
115 | format STDIN = |
116 | . |
117 | close STDIN; |
118 | write STDIN; |
69282e91 |
119 | opendir STDIN, "."; |
120 | write STDIN; |
121 | closedir STDIN; |
4438c4b7 |
122 | no warnings 'closed' ; |
0453d815 |
123 | write STDIN; |
69282e91 |
124 | opendir STDIN, "."; |
125 | write STDIN; |
599cee73 |
126 | EXPECT |
43693395 |
127 | write() on closed filehandle STDIN at - line 6. |
128 | write() on closed filehandle STDIN at - line 8. |
129 | (Are you trying to call write() on dirhandle STDIN?) |
599cee73 |
130 | ######## |
767a6a26 |
131 | # pp_sys.c [pp_leavewrite] |
4438c4b7 |
132 | use warnings 'io' ; |
599cee73 |
133 | format STDOUT_TOP = |
134 | abc |
135 | . |
136 | format STDOUT = |
137 | def |
138 | ghi |
139 | . |
140 | $= = 1 ; |
141 | $- =1 ; |
3eeba6fb |
142 | open STDOUT, ">".($^O eq 'VMS'? 'NL:' : '/dev/null') ; |
599cee73 |
143 | write ; |
4438c4b7 |
144 | no warnings 'io' ; |
0453d815 |
145 | write ; |
599cee73 |
146 | EXPECT |
147 | page overflow at - line 13. |
148 | ######## |
767a6a26 |
149 | # pp_sys.c [pp_prtf] |
4438c4b7 |
150 | use warnings 'unopened' ; |
599cee73 |
151 | $a = "abc"; |
0453d815 |
152 | printf $a "fred"; |
4438c4b7 |
153 | no warnings 'unopened' ; |
0453d815 |
154 | printf $a "fred"; |
599cee73 |
155 | EXPECT |
43693395 |
156 | Filehandle abc never opened at - line 4. |
599cee73 |
157 | ######## |
767a6a26 |
158 | # pp_sys.c [pp_prtf] |
4438c4b7 |
159 | use warnings 'closed' ; |
599cee73 |
160 | close STDIN ; |
0453d815 |
161 | printf STDIN "fred"; |
69282e91 |
162 | opendir STDIN, "."; |
163 | printf STDIN "fred"; |
164 | closedir STDIN; |
4438c4b7 |
165 | no warnings 'closed' ; |
0453d815 |
166 | printf STDIN "fred"; |
69282e91 |
167 | opendir STDIN, "."; |
168 | printf STDIN "fred"; |
599cee73 |
169 | EXPECT |
43693395 |
170 | printf() on closed filehandle STDIN at - line 4. |
171 | printf() on closed filehandle STDIN at - line 6. |
172 | (Are you trying to call printf() on dirhandle STDIN?) |
599cee73 |
173 | ######## |
767a6a26 |
174 | # pp_sys.c [pp_prtf] |
4438c4b7 |
175 | use warnings 'io' ; |
0453d815 |
176 | printf STDIN "fred"; |
4438c4b7 |
177 | no warnings 'io' ; |
0453d815 |
178 | printf STDIN "fred"; |
599cee73 |
179 | EXPECT |
43693395 |
180 | Filehandle STDIN opened only for input at - line 3. |
599cee73 |
181 | ######## |
767a6a26 |
182 | # pp_sys.c [pp_send] |
4438c4b7 |
183 | use warnings 'closed' ; |
599cee73 |
184 | close STDIN; |
185 | syswrite STDIN, "fred", 1; |
69282e91 |
186 | opendir STDIN, "."; |
187 | syswrite STDIN, "fred", 1; |
188 | closedir STDIN; |
4438c4b7 |
189 | no warnings 'closed' ; |
0453d815 |
190 | syswrite STDIN, "fred", 1; |
69282e91 |
191 | opendir STDIN, "."; |
192 | syswrite STDIN, "fred", 1; |
599cee73 |
193 | EXPECT |
43693395 |
194 | syswrite() on closed filehandle STDIN at - line 4. |
195 | syswrite() on closed filehandle STDIN at - line 6. |
196 | (Are you trying to call syswrite() on dirhandle STDIN?) |
69282e91 |
197 | ######## |
198 | # pp_sys.c [pp_flock] |
f0963acb |
199 | use Config; |
200 | BEGIN { |
201 | if ( $^O eq 'VMS' and ! $Config{d_flock}) { |
202 | print <<EOM ; |
203 | SKIPPED |
204 | # flock not present |
205 | EOM |
206 | exit ; |
207 | } |
208 | } |
69282e91 |
209 | use warnings 'closed' ; |
210 | close STDIN; |
211 | flock STDIN, 8; |
212 | opendir STDIN, "."; |
213 | flock STDIN, 8; |
214 | no warnings 'closed' ; |
215 | flock STDIN, 8; |
216 | opendir STDIN, "."; |
217 | flock STDIN, 8; |
218 | EXPECT |
43693395 |
219 | flock() on closed filehandle STDIN at - line 14. |
220 | flock() on closed filehandle STDIN at - line 16. |
221 | (Are you trying to call flock() on dirhandle STDIN?) |
599cee73 |
222 | ######## |
767a6a26 |
223 | # pp_sys.c [pp_prtf pp_send pp_bind pp_connect pp_listen pp_accept pp_shutdown pp_ssockopt ppp_getpeername] |
4438c4b7 |
224 | use warnings 'io' ; |
599cee73 |
225 | use Config; |
226 | BEGIN { |
227 | if ( $^O ne 'VMS' and ! $Config{d_socket}) { |
228 | print <<EOM ; |
229 | SKIPPED |
230 | # send not present |
231 | # bind not present |
232 | # connect not present |
233 | # accept not present |
234 | # shutdown not present |
235 | # setsockopt not present |
236 | # getsockopt not present |
237 | # getsockname not present |
238 | # getpeername not present |
239 | EOM |
240 | exit ; |
241 | } |
242 | } |
243 | close STDIN; |
244 | send STDIN, "fred", 1; |
245 | bind STDIN, "fred" ; |
246 | connect STDIN, "fred" ; |
247 | listen STDIN, 2; |
69282e91 |
248 | accept "fred", STDIN; |
249 | shutdown STDIN, 0; |
250 | setsockopt STDIN, 1,2,3; |
251 | getsockopt STDIN, 1,2; |
252 | getsockname STDIN; |
253 | getpeername STDIN; |
254 | opendir STDIN, "."; |
255 | send STDIN, "fred", 1; |
256 | bind STDIN, "fred" ; |
257 | connect STDIN, "fred" ; |
258 | listen STDIN, 2; |
259 | accept "fred", STDIN; |
599cee73 |
260 | shutdown STDIN, 0; |
261 | setsockopt STDIN, 1,2,3; |
262 | getsockopt STDIN, 1,2; |
263 | getsockname STDIN; |
264 | getpeername STDIN; |
69282e91 |
265 | closedir STDIN; |
4438c4b7 |
266 | no warnings 'io' ; |
0453d815 |
267 | send STDIN, "fred", 1; |
268 | bind STDIN, "fred" ; |
269 | connect STDIN, "fred" ; |
270 | listen STDIN, 2; |
271 | accept STDIN, "fred" ; |
272 | shutdown STDIN, 0; |
273 | setsockopt STDIN, 1,2,3; |
274 | getsockopt STDIN, 1,2; |
275 | getsockname STDIN; |
276 | getpeername STDIN; |
69282e91 |
277 | opendir STDIN, "."; |
278 | send STDIN, "fred", 1; |
279 | bind STDIN, "fred" ; |
280 | connect STDIN, "fred" ; |
281 | listen STDIN, 2; |
282 | accept "fred", STDIN; |
283 | shutdown STDIN, 0; |
284 | setsockopt STDIN, 1,2,3; |
285 | getsockopt STDIN, 1,2; |
286 | getsockname STDIN; |
287 | getpeername STDIN; |
599cee73 |
288 | EXPECT |
43693395 |
289 | send() on closed socket STDIN at - line 22. |
290 | bind() on closed socket STDIN at - line 23. |
291 | connect() on closed socket STDIN at - line 24. |
292 | listen() on closed socket STDIN at - line 25. |
293 | accept() on closed socket STDIN at - line 26. |
294 | shutdown() on closed socket STDIN at - line 27. |
295 | setsockopt() on closed socket STDIN at - line 28. |
296 | getsockopt() on closed socket STDIN at - line 29. |
297 | getsockname() on closed socket STDIN at - line 30. |
298 | getpeername() on closed socket STDIN at - line 31. |
299 | send() on closed socket STDIN at - line 33. |
300 | (Are you trying to call send() on dirhandle STDIN?) |
301 | bind() on closed socket STDIN at - line 34. |
302 | (Are you trying to call bind() on dirhandle STDIN?) |
303 | connect() on closed socket STDIN at - line 35. |
304 | (Are you trying to call connect() on dirhandle STDIN?) |
305 | listen() on closed socket STDIN at - line 36. |
306 | (Are you trying to call listen() on dirhandle STDIN?) |
307 | accept() on closed socket STDIN at - line 37. |
308 | (Are you trying to call accept() on dirhandle STDIN?) |
309 | shutdown() on closed socket STDIN at - line 38. |
310 | (Are you trying to call shutdown() on dirhandle STDIN?) |
311 | setsockopt() on closed socket STDIN at - line 39. |
312 | (Are you trying to call setsockopt() on dirhandle STDIN?) |
313 | getsockopt() on closed socket STDIN at - line 40. |
314 | (Are you trying to call getsockopt() on dirhandle STDIN?) |
315 | getsockname() on closed socket STDIN at - line 41. |
316 | (Are you trying to call getsockname() on dirhandle STDIN?) |
317 | getpeername() on closed socket STDIN at - line 42. |
318 | (Are you trying to call getpeername() on dirhandle STDIN?) |
599cee73 |
319 | ######## |
767a6a26 |
320 | # pp_sys.c [pp_stat] |
4438c4b7 |
321 | use warnings 'newline' ; |
599cee73 |
322 | stat "abc\ndef"; |
4438c4b7 |
323 | no warnings 'newline' ; |
0453d815 |
324 | stat "abc\ndef"; |
599cee73 |
325 | EXPECT |
326 | Unsuccessful stat on filename containing newline at - line 3. |
327 | ######## |
767a6a26 |
328 | # pp_sys.c [pp_fttext] |
4438c4b7 |
329 | use warnings 'unopened' ; |
599cee73 |
330 | close STDIN ; |
331 | -T STDIN ; |
9ddeeac9 |
332 | stat(STDIN) ; |
4438c4b7 |
333 | no warnings 'unopened' ; |
0453d815 |
334 | -T STDIN ; |
9ddeeac9 |
335 | stat(STDIN); |
599cee73 |
336 | EXPECT |
9ddeeac9 |
337 | -T on unopened filehandle STDIN at - line 4. |
338 | stat() on unopened filehandle STDIN at - line 5. |
599cee73 |
339 | ######## |
767a6a26 |
340 | # pp_sys.c [pp_fttext] |
4438c4b7 |
341 | use warnings 'newline' ; |
599cee73 |
342 | -T "abc\ndef" ; |
4438c4b7 |
343 | no warnings 'newline' ; |
0453d815 |
344 | -T "abc\ndef" ; |
599cee73 |
345 | EXPECT |
346 | Unsuccessful open on filename containing newline at - line 3. |
767a6a26 |
347 | ######## |
348 | # pp_sys.c [pp_sysread] |
349 | use warnings 'io' ; |
350 | my $file = "./xcv" ; |
351 | open(F, ">$file") ; |
352 | my $a = sysread(F, $a,10) ; |
353 | no warnings 'io' ; |
354 | my $a = sysread(F, $a,10) ; |
355 | close F ; |
356 | unlink $file ; |
357 | EXPECT |
43693395 |
358 | Filehandle F opened only for output at - line 5. |