Commit | Line | Data |
---|---|---|
599cee73 PM |
1 | pp_sys.c AOK |
2 | ||
767a6a26 | 3 | untie attempted while %d inner references still exist [pp_untie] |
599cee73 PM |
4 | sub TIESCALAR { bless [] } ; tie $a, 'main'; untie $a ; |
5 | ||
c289d2f7 JH |
6 | fileno() on unopened filehandle abc [pp_fileno] |
7 | $a = "abc"; fileno($a) | |
8 | ||
9 | binmode() on unopened filehandle abc [pp_binmode] | |
10 | $a = "abc"; fileno($a) | |
11 | ||
12 | printf() on unopened filehandle abc [pp_prtf] | |
13 | $a = "abc"; printf $a "fred" | |
14 | ||
767a6a26 | 15 | Filehandle %s opened only for input [pp_leavewrite] |
599cee73 PM |
16 | format STDIN = |
17 | . | |
18 | write STDIN; | |
19 | ||
9a7dcd9c | 20 | write() on closed filehandle %s [pp_leavewrite] |
599cee73 PM |
21 | format STDIN = |
22 | . | |
23 | close STDIN; | |
24 | write STDIN ; | |
25 | ||
767a6a26 | 26 | page overflow [pp_leavewrite] |
599cee73 | 27 | |
2dd78f96 | 28 | printf() on unopened filehandle abc [pp_prtf] |
599cee73 PM |
29 | $a = "abc"; printf $a "fred" |
30 | ||
767a6a26 | 31 | Filehandle %s opened only for input [pp_prtf] |
599cee73 PM |
32 | $a = "abc"; |
33 | printf $a "fred" | |
34 | ||
9a7dcd9c | 35 | printf() on closed filehandle %s [pp_prtf] |
599cee73 PM |
36 | close STDIN ; |
37 | printf STDIN "fred" | |
38 | ||
69282e91 | 39 | syswrite() on closed filehandle %s [pp_send] |
599cee73 PM |
40 | close STDIN; |
41 | syswrite STDIN, "fred", 1; | |
42 | ||
69282e91 | 43 | send() on closed socket %s [pp_send] |
599cee73 PM |
44 | close STDIN; |
45 | send STDIN, "fred", 1 | |
46 | ||
69282e91 | 47 | bind() on closed socket %s [pp_bind] |
599cee73 PM |
48 | close STDIN; |
49 | bind STDIN, "fred" ; | |
50 | ||
51 | ||
69282e91 | 52 | connect() on closed socket %s [pp_connect] |
599cee73 PM |
53 | close STDIN; |
54 | connect STDIN, "fred" ; | |
55 | ||
69282e91 | 56 | listen() on closed socket %s [pp_listen] |
599cee73 PM |
57 | close STDIN; |
58 | listen STDIN, 2; | |
59 | ||
69282e91 | 60 | accept() on closed socket %s [pp_accept] |
599cee73 | 61 | close STDIN; |
69282e91 | 62 | accept "fred", STDIN ; |
599cee73 | 63 | |
69282e91 | 64 | shutdown() on closed socket %s [pp_shutdown] |
599cee73 PM |
65 | close STDIN; |
66 | shutdown STDIN, 0; | |
67 | ||
69282e91 GS |
68 | setsockopt() on closed socket %s [pp_ssockopt] |
69 | getsockopt() on closed socket %s [pp_ssockopt] | |
599cee73 PM |
70 | close STDIN; |
71 | setsockopt STDIN, 1,2,3; | |
72 | getsockopt STDIN, 1,2; | |
73 | ||
69282e91 GS |
74 | getsockname() on closed socket %s [pp_getpeername] |
75 | getpeername() on closed socket %s [pp_getpeername] | |
599cee73 PM |
76 | close STDIN; |
77 | getsockname STDIN; | |
78 | getpeername STDIN; | |
79 | ||
69282e91 | 80 | flock() on closed socket %s [pp_flock] |
bc37a18f | 81 | flock() on closed socket [pp_flock] |
69282e91 GS |
82 | close STDIN; |
83 | flock STDIN, 8; | |
bc37a18f | 84 | flock $a, 8; |
69282e91 | 85 | |
767a6a26 | 86 | warn(warn_nl, "stat"); [pp_stat] |
599cee73 | 87 | |
2dd78f96 JH |
88 | -T on closed filehandle %s |
89 | stat() on closed filehandle %s | |
90 | close STDIN ; -T STDIN ; stat(STDIN) ; | |
599cee73 | 91 | |
767a6a26 | 92 | warn(warn_nl, "open"); [pp_fttext] |
599cee73 PM |
93 | -T "abc\ndef" ; |
94 | ||
767a6a26 PM |
95 | Filehandle %s opened only for output [pp_sysread] |
96 | my $file = "./xcv" ; | |
97 | open(F, ">$file") ; | |
98 | my $a = sysread(F, $a,10) ; | |
5d3e98de | 99 | |
90133b69 RGS |
100 | lstat on filehandle %s [pp_lstat] |
101 | ||
102 | getc() on unopened filehandle [pp_getc] | |
103 | ||
104 | getc() on closed filehandle [pp_getc] | |
599cee73 | 105 | |
4ef2275c GA |
106 | Non-string passed as bitmask [pp_sselect] |
107 | ||
d8bd3d82 FC |
108 | %s too large [pp_gmtime] |
109 | ||
110 | %s failed [pp_gmtime] | |
111 | ||
599cee73 | 112 | __END__ |
767a6a26 | 113 | # pp_sys.c [pp_untie] |
4438c4b7 | 114 | use warnings 'untie' ; |
599cee73 PM |
115 | sub TIESCALAR { bless [] } ; |
116 | $b = tie $a, 'main'; | |
117 | untie $a ; | |
4438c4b7 | 118 | no warnings 'untie' ; |
0453d815 PM |
119 | $c = tie $d, 'main'; |
120 | untie $d ; | |
599cee73 PM |
121 | EXPECT |
122 | untie attempted while 1 inner references still exist at - line 5. | |
123 | ######## | |
767a6a26 | 124 | # pp_sys.c [pp_leavewrite] |
4438c4b7 | 125 | use warnings 'io' ; |
599cee73 PM |
126 | format STDIN = |
127 | . | |
128 | write STDIN; | |
4438c4b7 | 129 | no warnings 'io' ; |
0453d815 | 130 | write STDIN; |
599cee73 | 131 | EXPECT |
43693395 | 132 | Filehandle STDIN opened only for input at - line 5. |
599cee73 | 133 | ######## |
767a6a26 | 134 | # pp_sys.c [pp_leavewrite] |
4438c4b7 | 135 | use warnings 'closed' ; |
599cee73 PM |
136 | format STDIN = |
137 | . | |
c521cf7c NC |
138 | format FOO = |
139 | . | |
599cee73 PM |
140 | close STDIN; |
141 | write STDIN; | |
c521cf7c | 142 | write FOO; |
69282e91 GS |
143 | opendir STDIN, "."; |
144 | write STDIN; | |
145 | closedir STDIN; | |
c521cf7c NC |
146 | opendir FOO, "."; |
147 | write FOO; | |
148 | closedir FOO; | |
4438c4b7 | 149 | no warnings 'closed' ; |
0453d815 | 150 | write STDIN; |
c521cf7c | 151 | write FOO; |
69282e91 | 152 | opendir STDIN, "."; |
c521cf7c | 153 | opendir FOO, "."; |
69282e91 | 154 | write STDIN; |
c521cf7c | 155 | write FOO; |
599cee73 | 156 | EXPECT |
43693395 | 157 | write() on closed filehandle STDIN at - line 8. |
c521cf7c | 158 | write() on closed filehandle STDIN at - line 11. |
43693395 | 159 | (Are you trying to call write() on dirhandle STDIN?) |
599cee73 | 160 | ######## |
c521cf7c NC |
161 | # pp_sys.c [pp_leavewrite] |
162 | use warnings 'unopened'; | |
163 | format STDIN = | |
164 | . | |
165 | format FOO = | |
166 | . | |
167 | close STDIN; | |
168 | write STDIN; | |
169 | write FOO; | |
170 | opendir STDIN, "."; | |
171 | write STDIN; | |
172 | closedir STDIN; | |
173 | opendir FOO, "."; | |
174 | write FOO; | |
175 | closedir FOO; | |
176 | no warnings 'unopened'; | |
177 | write STDIN; | |
178 | write FOO; | |
179 | opendir STDIN, "."; | |
180 | opendir FOO, "."; | |
181 | write STDIN; | |
182 | write FOO; | |
183 | EXPECT | |
f03aef05 NC |
184 | write() on unopened filehandle FOO at - line 9. |
185 | write() on unopened filehandle FOO at - line 14. | |
c521cf7c NC |
186 | (Are you trying to call write() on dirhandle FOO?) |
187 | ######## | |
767a6a26 | 188 | # pp_sys.c [pp_leavewrite] |
4438c4b7 | 189 | use warnings 'io' ; |
599cee73 PM |
190 | format STDOUT_TOP = |
191 | abc | |
192 | . | |
193 | format STDOUT = | |
194 | def | |
195 | ghi | |
196 | . | |
197 | $= = 1 ; | |
198 | $- =1 ; | |
3eeba6fb | 199 | open STDOUT, ">".($^O eq 'VMS'? 'NL:' : '/dev/null') ; |
599cee73 | 200 | write ; |
4438c4b7 | 201 | no warnings 'io' ; |
0453d815 | 202 | write ; |
599cee73 PM |
203 | EXPECT |
204 | page overflow at - line 13. | |
205 | ######## | |
767a6a26 | 206 | # pp_sys.c [pp_prtf] |
4438c4b7 | 207 | use warnings 'unopened' ; |
599cee73 | 208 | $a = "abc"; |
0453d815 | 209 | printf $a "fred"; |
4438c4b7 | 210 | no warnings 'unopened' ; |
0453d815 | 211 | printf $a "fred"; |
599cee73 | 212 | EXPECT |
2dd78f96 | 213 | printf() on unopened filehandle abc at - line 4. |
599cee73 | 214 | ######## |
767a6a26 | 215 | # pp_sys.c [pp_prtf] |
4438c4b7 | 216 | use warnings 'closed' ; |
599cee73 | 217 | close STDIN ; |
0453d815 | 218 | printf STDIN "fred"; |
69282e91 GS |
219 | opendir STDIN, "."; |
220 | printf STDIN "fred"; | |
221 | closedir STDIN; | |
4438c4b7 | 222 | no warnings 'closed' ; |
0453d815 | 223 | printf STDIN "fred"; |
69282e91 GS |
224 | opendir STDIN, "."; |
225 | printf STDIN "fred"; | |
599cee73 | 226 | EXPECT |
43693395 GS |
227 | printf() on closed filehandle STDIN at - line 4. |
228 | printf() on closed filehandle STDIN at - line 6. | |
229 | (Are you trying to call printf() on dirhandle STDIN?) | |
599cee73 | 230 | ######## |
767a6a26 | 231 | # pp_sys.c [pp_prtf] |
4438c4b7 | 232 | use warnings 'io' ; |
0453d815 | 233 | printf STDIN "fred"; |
4438c4b7 | 234 | no warnings 'io' ; |
0453d815 | 235 | printf STDIN "fred"; |
599cee73 | 236 | EXPECT |
43693395 | 237 | Filehandle STDIN opened only for input at - line 3. |
599cee73 | 238 | ######## |
767a6a26 | 239 | # pp_sys.c [pp_send] |
cf167416 RGS |
240 | use warnings 'io' ; |
241 | syswrite STDIN, "fred"; | |
242 | no warnings 'io' ; | |
243 | syswrite STDIN, "fred"; | |
244 | EXPECT | |
245 | Filehandle STDIN opened only for input at - line 3. | |
246 | ######## | |
247 | # pp_sys.c [pp_send] | |
4438c4b7 | 248 | use warnings 'closed' ; |
599cee73 PM |
249 | close STDIN; |
250 | syswrite STDIN, "fred", 1; | |
69282e91 GS |
251 | opendir STDIN, "."; |
252 | syswrite STDIN, "fred", 1; | |
253 | closedir STDIN; | |
4438c4b7 | 254 | no warnings 'closed' ; |
0453d815 | 255 | syswrite STDIN, "fred", 1; |
69282e91 GS |
256 | opendir STDIN, "."; |
257 | syswrite STDIN, "fred", 1; | |
599cee73 | 258 | EXPECT |
43693395 GS |
259 | syswrite() on closed filehandle STDIN at - line 4. |
260 | syswrite() on closed filehandle STDIN at - line 6. | |
261 | (Are you trying to call syswrite() on dirhandle STDIN?) | |
69282e91 GS |
262 | ######## |
263 | # pp_sys.c [pp_flock] | |
f0963acb GS |
264 | use Config; |
265 | BEGIN { | |
9bdf8ebc JH |
266 | if ( !$Config{d_flock} && |
267 | !$Config{d_fcntl_can_lock} && | |
268 | !$Config{d_lockf} ) { | |
f0963acb GS |
269 | print <<EOM ; |
270 | SKIPPED | |
271 | # flock not present | |
272 | EOM | |
273 | exit ; | |
274 | } | |
275 | } | |
bc37a18f | 276 | use warnings qw(unopened closed); |
69282e91 GS |
277 | close STDIN; |
278 | flock STDIN, 8; | |
279 | opendir STDIN, "."; | |
280 | flock STDIN, 8; | |
bc37a18f RG |
281 | flock FOO, 8; |
282 | flock $a, 8; | |
283 | no warnings qw(unopened closed); | |
69282e91 GS |
284 | flock STDIN, 8; |
285 | opendir STDIN, "."; | |
286 | flock STDIN, 8; | |
bc37a18f RG |
287 | flock FOO, 8; |
288 | flock $a, 8; | |
69282e91 | 289 | EXPECT |
43693395 | 290 | flock() on closed filehandle STDIN at - line 16. |
c934501c | 291 | flock() on closed filehandle STDIN at - line 18. |
43693395 | 292 | (Are you trying to call flock() on dirhandle STDIN?) |
c934501c JH |
293 | flock() on unopened filehandle FOO at - line 19. |
294 | flock() on unopened filehandle at - line 20. | |
599cee73 | 295 | ######## |
767a6a26 | 296 | # pp_sys.c [pp_prtf pp_send pp_bind pp_connect pp_listen pp_accept pp_shutdown pp_ssockopt ppp_getpeername] |
dc8c4646 | 297 | use warnings 'closed'; |
599cee73 PM |
298 | use Config; |
299 | BEGIN { | |
300 | if ( $^O ne 'VMS' and ! $Config{d_socket}) { | |
301 | print <<EOM ; | |
302 | SKIPPED | |
303 | # send not present | |
304 | # bind not present | |
305 | # connect not present | |
306 | # accept not present | |
307 | # shutdown not present | |
308 | # setsockopt not present | |
309 | # getsockopt not present | |
310 | # getsockname not present | |
311 | # getpeername not present | |
312 | EOM | |
313 | exit ; | |
314 | } | |
315 | } | |
316 | close STDIN; | |
317 | send STDIN, "fred", 1; | |
318 | bind STDIN, "fred" ; | |
319 | connect STDIN, "fred" ; | |
320 | listen STDIN, 2; | |
69282e91 GS |
321 | accept "fred", STDIN; |
322 | shutdown STDIN, 0; | |
323 | setsockopt STDIN, 1,2,3; | |
324 | getsockopt STDIN, 1,2; | |
325 | getsockname STDIN; | |
326 | getpeername STDIN; | |
327 | opendir STDIN, "."; | |
328 | send STDIN, "fred", 1; | |
329 | bind STDIN, "fred" ; | |
330 | connect STDIN, "fred" ; | |
331 | listen STDIN, 2; | |
332 | accept "fred", STDIN; | |
599cee73 PM |
333 | shutdown STDIN, 0; |
334 | setsockopt STDIN, 1,2,3; | |
335 | getsockopt STDIN, 1,2; | |
336 | getsockname STDIN; | |
337 | getpeername STDIN; | |
69282e91 | 338 | closedir STDIN; |
fbcda526 NC |
339 | send FOO, "fred", 1; |
340 | bind FOO, "fred" ; | |
341 | connect FOO, "fred" ; | |
342 | listen FOO, 2; | |
343 | accept "fred", FOO; | |
344 | shutdown FOO, 0; | |
345 | setsockopt FOO, 1,2,3; | |
346 | getsockopt FOO, 1,2; | |
347 | getsockname FOO; | |
348 | getpeername FOO; | |
349 | opendir FOO, "."; | |
350 | send FOO, "fred", 1; | |
351 | bind FOO, "fred" ; | |
352 | connect FOO, "fred" ; | |
353 | listen FOO, 2; | |
354 | accept "fred", FOO; | |
355 | shutdown FOO, 0; | |
356 | setsockopt FOO, 1,2,3; | |
357 | getsockopt FOO, 1,2; | |
358 | getsockname FOO; | |
359 | getpeername FOO; | |
360 | closedir FOO; | |
dc8c4646 | 361 | no warnings 'closed'; |
0453d815 PM |
362 | send STDIN, "fred", 1; |
363 | bind STDIN, "fred" ; | |
364 | connect STDIN, "fred" ; | |
365 | listen STDIN, 2; | |
366 | accept STDIN, "fred" ; | |
367 | shutdown STDIN, 0; | |
368 | setsockopt STDIN, 1,2,3; | |
369 | getsockopt STDIN, 1,2; | |
370 | getsockname STDIN; | |
371 | getpeername STDIN; | |
69282e91 GS |
372 | opendir STDIN, "."; |
373 | send STDIN, "fred", 1; | |
374 | bind STDIN, "fred" ; | |
375 | connect STDIN, "fred" ; | |
376 | listen STDIN, 2; | |
377 | accept "fred", STDIN; | |
378 | shutdown STDIN, 0; | |
379 | setsockopt STDIN, 1,2,3; | |
380 | getsockopt STDIN, 1,2; | |
381 | getsockname STDIN; | |
382 | getpeername STDIN; | |
fbcda526 NC |
383 | send FOO, "fred", 1; |
384 | bind FOO, "fred" ; | |
385 | connect FOO, "fred" ; | |
386 | listen FOO, 2; | |
387 | accept FOO, "fred" ; | |
388 | shutdown FOO, 0; | |
389 | setsockopt FOO, 1,2,3; | |
390 | getsockopt FOO, 1,2; | |
391 | getsockname FOO; | |
392 | getpeername FOO; | |
393 | opendir FOO, "."; | |
394 | send FOO, "fred", 1; | |
395 | bind FOO, "fred" ; | |
396 | connect FOO, "fred" ; | |
397 | listen FOO, 2; | |
398 | accept "fred", FOO; | |
399 | shutdown FOO, 0; | |
400 | setsockopt FOO, 1,2,3; | |
401 | getsockopt FOO, 1,2; | |
402 | getsockname FOO; | |
403 | getpeername FOO; | |
599cee73 | 404 | EXPECT |
43693395 GS |
405 | send() on closed socket STDIN at - line 22. |
406 | bind() on closed socket STDIN at - line 23. | |
407 | connect() on closed socket STDIN at - line 24. | |
408 | listen() on closed socket STDIN at - line 25. | |
409 | accept() on closed socket STDIN at - line 26. | |
410 | shutdown() on closed socket STDIN at - line 27. | |
411 | setsockopt() on closed socket STDIN at - line 28. | |
412 | getsockopt() on closed socket STDIN at - line 29. | |
413 | getsockname() on closed socket STDIN at - line 30. | |
414 | getpeername() on closed socket STDIN at - line 31. | |
415 | send() on closed socket STDIN at - line 33. | |
416 | (Are you trying to call send() on dirhandle STDIN?) | |
417 | bind() on closed socket STDIN at - line 34. | |
418 | (Are you trying to call bind() on dirhandle STDIN?) | |
419 | connect() on closed socket STDIN at - line 35. | |
420 | (Are you trying to call connect() on dirhandle STDIN?) | |
421 | listen() on closed socket STDIN at - line 36. | |
422 | (Are you trying to call listen() on dirhandle STDIN?) | |
423 | accept() on closed socket STDIN at - line 37. | |
424 | (Are you trying to call accept() on dirhandle STDIN?) | |
425 | shutdown() on closed socket STDIN at - line 38. | |
426 | (Are you trying to call shutdown() on dirhandle STDIN?) | |
427 | setsockopt() on closed socket STDIN at - line 39. | |
428 | (Are you trying to call setsockopt() on dirhandle STDIN?) | |
429 | getsockopt() on closed socket STDIN at - line 40. | |
430 | (Are you trying to call getsockopt() on dirhandle STDIN?) | |
431 | getsockname() on closed socket STDIN at - line 41. | |
432 | (Are you trying to call getsockname() on dirhandle STDIN?) | |
433 | getpeername() on closed socket STDIN at - line 42. | |
434 | (Are you trying to call getpeername() on dirhandle STDIN?) | |
599cee73 | 435 | ######## |
fbcda526 NC |
436 | # pp_sys.c [pp_prtf pp_send pp_bind pp_connect pp_listen pp_accept pp_shutdown pp_ssockopt ppp_getpeername] |
437 | use warnings 'unopened'; | |
438 | use Config; | |
439 | BEGIN { | |
440 | if ( $^O ne 'VMS' and ! $Config{d_socket}) { | |
441 | print <<EOM ; | |
442 | SKIPPED | |
443 | # send not present | |
444 | # bind not present | |
445 | # connect not present | |
446 | # accept not present | |
447 | # shutdown not present | |
448 | # setsockopt not present | |
449 | # getsockopt not present | |
450 | # getsockname not present | |
451 | # getpeername not present | |
452 | EOM | |
453 | exit ; | |
454 | } | |
455 | } | |
456 | close STDIN; | |
457 | send STDIN, "fred", 1; | |
458 | bind STDIN, "fred" ; | |
459 | connect STDIN, "fred" ; | |
460 | listen STDIN, 2; | |
461 | accept "fred", STDIN; | |
462 | shutdown STDIN, 0; | |
463 | setsockopt STDIN, 1,2,3; | |
464 | getsockopt STDIN, 1,2; | |
465 | getsockname STDIN; | |
466 | getpeername STDIN; | |
467 | opendir STDIN, "."; | |
468 | send STDIN, "fred", 1; | |
469 | bind STDIN, "fred" ; | |
470 | connect STDIN, "fred" ; | |
471 | listen STDIN, 2; | |
472 | accept "fred", STDIN; | |
473 | shutdown STDIN, 0; | |
474 | setsockopt STDIN, 1,2,3; | |
475 | getsockopt STDIN, 1,2; | |
476 | getsockname STDIN; | |
477 | getpeername STDIN; | |
478 | closedir STDIN; | |
479 | send FOO, "fred", 1; | |
480 | bind FOO, "fred" ; | |
481 | connect FOO, "fred" ; | |
482 | listen FOO, 2; | |
483 | accept "fred", FOO; | |
484 | shutdown FOO, 0; | |
485 | setsockopt FOO, 1,2,3; | |
486 | getsockopt FOO, 1,2; | |
487 | getsockname FOO; | |
488 | getpeername FOO; | |
489 | opendir FOO, "."; | |
490 | send FOO, "fred", 1; | |
491 | bind FOO, "fred" ; | |
492 | connect FOO, "fred" ; | |
493 | listen FOO, 2; | |
494 | accept "fred", FOO; | |
495 | shutdown FOO, 0; | |
496 | setsockopt FOO, 1,2,3; | |
497 | getsockopt FOO, 1,2; | |
498 | getsockname FOO; | |
499 | getpeername FOO; | |
500 | closedir FOO; | |
501 | no warnings 'unopened'; | |
502 | send STDIN, "fred", 1; | |
503 | bind STDIN, "fred" ; | |
504 | connect STDIN, "fred" ; | |
505 | listen STDIN, 2; | |
506 | accept STDIN, "fred" ; | |
507 | shutdown STDIN, 0; | |
508 | setsockopt STDIN, 1,2,3; | |
509 | getsockopt STDIN, 1,2; | |
510 | getsockname STDIN; | |
511 | getpeername STDIN; | |
512 | opendir STDIN, "."; | |
513 | send STDIN, "fred", 1; | |
514 | bind STDIN, "fred" ; | |
515 | connect STDIN, "fred" ; | |
516 | listen STDIN, 2; | |
517 | accept "fred", STDIN; | |
518 | shutdown STDIN, 0; | |
519 | setsockopt STDIN, 1,2,3; | |
520 | getsockopt STDIN, 1,2; | |
521 | getsockname STDIN; | |
522 | getpeername STDIN; | |
523 | send FOO, "fred", 1; | |
524 | bind FOO, "fred" ; | |
525 | connect FOO, "fred" ; | |
526 | listen FOO, 2; | |
527 | accept FOO, "fred" ; | |
528 | shutdown FOO, 0; | |
529 | setsockopt FOO, 1,2,3; | |
530 | getsockopt FOO, 1,2; | |
531 | getsockname FOO; | |
532 | getpeername FOO; | |
533 | opendir FOO, "."; | |
534 | send FOO, "fred", 1; | |
535 | bind FOO, "fred" ; | |
536 | connect FOO, "fred" ; | |
537 | listen FOO, 2; | |
538 | accept "fred", FOO; | |
539 | shutdown FOO, 0; | |
540 | setsockopt FOO, 1,2,3; | |
541 | getsockopt FOO, 1,2; | |
542 | getsockname FOO; | |
543 | getpeername FOO; | |
544 | EXPECT | |
545 | send() on unopened socket FOO at - line 44. | |
546 | bind() on unopened socket FOO at - line 45. | |
547 | connect() on unopened socket FOO at - line 46. | |
548 | listen() on unopened socket FOO at - line 47. | |
549 | accept() on unopened socket FOO at - line 48. | |
550 | shutdown() on unopened socket FOO at - line 49. | |
551 | setsockopt() on unopened socket FOO at - line 50. | |
552 | getsockopt() on unopened socket FOO at - line 51. | |
553 | getsockname() on unopened socket FOO at - line 52. | |
554 | getpeername() on unopened socket FOO at - line 53. | |
555 | send() on unopened socket FOO at - line 55. | |
556 | (Are you trying to call send() on dirhandle FOO?) | |
557 | bind() on unopened socket FOO at - line 56. | |
558 | (Are you trying to call bind() on dirhandle FOO?) | |
559 | connect() on unopened socket FOO at - line 57. | |
560 | (Are you trying to call connect() on dirhandle FOO?) | |
561 | listen() on unopened socket FOO at - line 58. | |
562 | (Are you trying to call listen() on dirhandle FOO?) | |
563 | accept() on unopened socket FOO at - line 59. | |
564 | (Are you trying to call accept() on dirhandle FOO?) | |
565 | shutdown() on unopened socket FOO at - line 60. | |
566 | (Are you trying to call shutdown() on dirhandle FOO?) | |
567 | setsockopt() on unopened socket FOO at - line 61. | |
568 | (Are you trying to call setsockopt() on dirhandle FOO?) | |
569 | getsockopt() on unopened socket FOO at - line 62. | |
570 | (Are you trying to call getsockopt() on dirhandle FOO?) | |
571 | getsockname() on unopened socket FOO at - line 63. | |
572 | (Are you trying to call getsockname() on dirhandle FOO?) | |
573 | getpeername() on unopened socket FOO at - line 64. | |
574 | (Are you trying to call getpeername() on dirhandle FOO?) | |
575 | ######## | |
767a6a26 | 576 | # pp_sys.c [pp_stat] |
4438c4b7 | 577 | use warnings 'newline' ; |
599cee73 | 578 | stat "abc\ndef"; |
7cb3f959 TC |
579 | stat "abcdef\n"; |
580 | stat "abcdef\n\0"; | |
4438c4b7 | 581 | no warnings 'newline' ; |
0453d815 | 582 | stat "abc\ndef"; |
7cb3f959 TC |
583 | stat "abcdef\n"; |
584 | stat "abcdef\n\0"; | |
599cee73 | 585 | EXPECT |
7cb3f959 TC |
586 | Unsuccessful stat on filename containing newline at - line 4. |
587 | Unsuccessful stat on filename containing newline at - line 5. | |
599cee73 | 588 | ######## |
767a6a26 | 589 | # pp_sys.c [pp_fttext] |
2dd78f96 | 590 | use warnings qw(unopened closed) ; |
599cee73 PM |
591 | close STDIN ; |
592 | -T STDIN ; | |
9ddeeac9 | 593 | stat(STDIN) ; |
2dd78f96 JH |
594 | -T HOCUS; |
595 | stat(POCUS); | |
05bb32d2 FC |
596 | stat "../test.pl"; |
597 | stat *foo; | |
2dd78f96 | 598 | no warnings qw(unopened closed) ; |
0453d815 | 599 | -T STDIN ; |
9ddeeac9 | 600 | stat(STDIN); |
2dd78f96 JH |
601 | -T HOCUS; |
602 | stat(POCUS); | |
05bb32d2 FC |
603 | stat "../test.pl"; |
604 | stat *foo; | |
599cee73 | 605 | EXPECT |
2dd78f96 JH |
606 | -T on closed filehandle STDIN at - line 4. |
607 | stat() on closed filehandle STDIN at - line 5. | |
608 | -T on unopened filehandle HOCUS at - line 6. | |
609 | stat() on unopened filehandle POCUS at - line 7. | |
05bb32d2 | 610 | stat() on unopened filehandle foo at - line 9. |
599cee73 | 611 | ######## |
767a6a26 | 612 | # pp_sys.c [pp_fttext] |
4438c4b7 | 613 | use warnings 'newline' ; |
599cee73 | 614 | -T "abc\ndef" ; |
7cb3f959 TC |
615 | -T "abcdef\n" ; |
616 | -T "abcdef\n\0" ; | |
4438c4b7 | 617 | no warnings 'newline' ; |
0453d815 | 618 | -T "abc\ndef" ; |
7cb3f959 TC |
619 | -T "abcdef\n" ; |
620 | -T "abcdef\n\0" ; | |
599cee73 | 621 | EXPECT |
7cb3f959 TC |
622 | Unsuccessful open on filename containing newline at - line 4. |
623 | Unsuccessful open on filename containing newline at - line 5. | |
767a6a26 PM |
624 | ######## |
625 | # pp_sys.c [pp_sysread] | |
626 | use warnings 'io' ; | |
6bbf1b34 LM |
627 | if ($^O eq 'dos') { |
628 | print <<EOM ; | |
629 | SKIPPED | |
630 | # skipped on dos | |
631 | EOM | |
632 | exit ; | |
633 | } | |
767a6a26 PM |
634 | my $file = "./xcv" ; |
635 | open(F, ">$file") ; | |
60e67244 | 636 | binmode F; |
767a6a26 PM |
637 | my $a = sysread(F, $a,10) ; |
638 | no warnings 'io' ; | |
639 | my $a = sysread(F, $a,10) ; | |
640 | close F ; | |
b5fe5ca2 SR |
641 | use warnings 'io' ; |
642 | sysread(F, $a, 10); | |
643 | read(F, $a, 10); | |
644 | sysread(NONEXISTENT, $a, 10); | |
645 | read(NONEXISTENT, $a, 10); | |
767a6a26 PM |
646 | unlink $file ; |
647 | EXPECT | |
60e67244 TC |
648 | Filehandle F opened only for output at - line 13. |
649 | sysread() on closed filehandle F at - line 18. | |
650 | read() on closed filehandle F at - line 19. | |
651 | sysread() on unopened filehandle NONEXISTENT at - line 20. | |
652 | read() on unopened filehandle NONEXISTENT at - line 21. | |
c289d2f7 JH |
653 | ######## |
654 | # pp_sys.c [pp_binmode] | |
655 | use warnings 'unopened' ; | |
656 | binmode(BLARG); | |
657 | $a = "BLERG";binmode($a); | |
658 | EXPECT | |
659 | binmode() on unopened filehandle BLARG at - line 3. | |
660 | binmode() on unopened filehandle at - line 4. | |
5d3e98de RGS |
661 | ######## |
662 | # pp_sys.c [pp_lstat] | |
663 | use warnings 'io'; | |
463cf062 | 664 | open FH, "../harness" or die "# $!"; |
365c80fa | 665 | lstat FH; |
109c43ed FC |
666 | lstat *FH; |
667 | lstat \*FH; | |
5d3e98de RGS |
668 | open my $fh, $0 or die "# $!"; |
669 | lstat $fh; | |
93fad930 | 670 | lstat *FH{IO}; |
5d3e98de | 671 | no warnings 'io'; |
365c80fa | 672 | lstat FH; |
5d3e98de | 673 | lstat $fh; |
365c80fa | 674 | close FH; |
5d3e98de RGS |
675 | close $fh; |
676 | EXPECT | |
365c80fa | 677 | lstat() on filehandle FH at - line 4. |
109c43ed FC |
678 | lstat() on filehandle FH at - line 5. |
679 | lstat() on filehandle FH at - line 6. | |
680 | lstat() on filehandle $fh at - line 8. | |
93fad930 | 681 | lstat() on filehandle at - line 9. |
90133b69 | 682 | ######## |
2dc9cdca | 683 | |
bf29d05f BF |
684 | # pp_sys.c [pp_lstat] |
685 | use warnings 'io'; | |
686 | use utf8; | |
687 | use open qw( :utf8 :std ); | |
688 | open ᶠḨ, "../harness" or die "# $!"; | |
689 | lstat ᶠḨ; | |
690 | open my $fᚺ, $0 or die "# $!"; | |
691 | lstat $fᚺ; | |
692 | no warnings 'io'; | |
693 | lstat ᶠḨ; | |
694 | lstat $fᚺ; | |
695 | close ᶠḨ; | |
696 | close $fᚺ; | |
697 | EXPECT | |
2dc9cdca BF |
698 | lstat() on filehandle ᶠḨ at - line 7. |
699 | lstat() on filehandle $fᚺ at - line 9. | |
bf29d05f | 700 | ######## |
90133b69 RGS |
701 | # pp_sys.c [pp_getc] |
702 | use warnings qw(unopened closed) ; | |
703 | getc FOO; | |
704 | close STDIN; | |
705 | getc STDIN; | |
97e322ff RGS |
706 | # Create an empty file |
707 | $file = 'getcwarn.tmp'; | |
708 | open FH1, ">$file" or die "# $!"; close FH1; | |
709 | open FH2, $file or die "# $!"; | |
710 | getc FH2; # Should not warn at EOF | |
711 | close FH2; | |
712 | getc FH2; # Warns, now | |
713 | unlink $file; | |
90133b69 RGS |
714 | no warnings qw(unopened closed) ; |
715 | getc FOO; | |
716 | getc STDIN; | |
97e322ff | 717 | getc FH2; |
90133b69 RGS |
718 | EXPECT |
719 | getc() on unopened filehandle FOO at - line 3. | |
720 | getc() on closed filehandle STDIN at - line 5. | |
97e322ff | 721 | getc() on closed filehandle FH2 at - line 12. |
4ef2275c GA |
722 | ######## |
723 | # pp_sys.c [pp_sselect] | |
724 | use warnings 'misc'; | |
725 | $x = 1; | |
ce712ebb | 726 | select $x, undef, undef, 1; |
9d6d5a79 FC |
727 | sub TIESCALAR{bless[]} sub FETCH {"hello"} sub STORE{} |
728 | tie $y, ""; | |
729 | select $y, undef, undef, 1; | |
4ef2275c | 730 | no warnings 'misc'; |
ce712ebb | 731 | select $x, undef, undef, 1; |
4ef2275c GA |
732 | EXPECT |
733 | Non-string passed as bitmask at - line 4. | |
4dc171f0 | 734 | ######## |
8aee01e7 RGS |
735 | use Config; |
736 | BEGIN { | |
737 | if (!$Config{d_fchdir}) { | |
738 | print <<EOM; | |
739 | SKIPPED | |
740 | # fchdir not present | |
741 | EOM | |
742 | exit; | |
743 | } | |
744 | } | |
4dc171f0 PD |
745 | opendir FOO, '.'; closedir FOO; |
746 | open BAR, '.'; close BAR; | |
747 | opendir $dh, '.'; closedir $dh; | |
748 | open $fh, '.'; close $fh; | |
749 | chdir FOO; | |
750 | chdir BAR; | |
751 | chdir $dh; | |
752 | chdir $fh; | |
753 | use warnings qw(unopened closed) ; | |
754 | chdir FOO; | |
755 | chdir BAR; | |
756 | chdir $dh; | |
757 | chdir $fh; | |
758 | EXPECT | |
8aee01e7 RGS |
759 | chdir() on unopened filehandle FOO at - line 20. |
760 | chdir() on closed filehandle BAR at - line 21. | |
761 | chdir() on unopened filehandle $dh at - line 22. | |
762 | chdir() on closed filehandle $fh at - line 23. | |
abc718f2 RGS |
763 | ######## |
764 | # pp_sys.c [pp_open] | |
765 | use warnings; | |
766 | opendir FOO, "."; | |
767 | opendir my $foo, "."; | |
463cf062 NC |
768 | open FOO, "../harness"; |
769 | open $foo, "../harness"; | |
abc718f2 | 770 | no warnings qw(io deprecated); |
463cf062 NC |
771 | open FOO, "../harness"; |
772 | open $foo, "../harness"; | |
abc718f2 | 773 | EXPECT |
122d6c09 A |
774 | Opening dirhandle FOO also as a file. This will be a fatal error in Perl 5.28 at - line 5. |
775 | Opening dirhandle $foo also as a file. This will be a fatal error in Perl 5.28 at - line 6. | |
abc718f2 | 776 | ######## |
2dc9cdca | 777 | |
bf29d05f BF |
778 | # pp_sys.c [pp_open] |
779 | use utf8; | |
780 | use open qw( :utf8 :std ); | |
781 | use warnings; | |
782 | opendir FOO, "."; | |
783 | opendir $foo, "."; | |
784 | open FOO, "../harness"; | |
785 | open $foo, "../harness"; | |
786 | no warnings qw(io deprecated); | |
787 | open FOO, "../harness"; | |
788 | open $foo, "../harness"; | |
789 | EXPECT | |
122d6c09 A |
790 | Opening dirhandle FOO also as a file. This will be a fatal error in Perl 5.28 at - line 8. |
791 | Opening dirhandle $foo also as a file. This will be a fatal error in Perl 5.28 at - line 9. | |
bf29d05f | 792 | ######## |
abc718f2 RGS |
793 | # pp_sys.c [pp_open_dir] |
794 | use warnings; | |
463cf062 NC |
795 | open FOO, "../harness"; |
796 | open my $foo, "../harness"; | |
abc718f2 RGS |
797 | opendir FOO, "."; |
798 | opendir $foo, "."; | |
799 | no warnings qw(io deprecated); | |
800 | opendir FOO, "."; | |
801 | opendir $foo, "."; | |
802 | EXPECT | |
122d6c09 A |
803 | Opening filehandle FOO also as a directory. This will be a fatal error in Perl 5.28 at - line 5. |
804 | Opening filehandle $foo also as a directory. This will be a fatal error in Perl 5.28 at - line 6. | |
bf29d05f | 805 | ######## |
2dc9cdca | 806 | |
bf29d05f BF |
807 | # pp_sys.c [pp_open_dir] |
808 | use utf8; | |
809 | use open qw( :utf8 :std ); | |
810 | use warnings; | |
811 | use warnings; | |
812 | open FOO, "../harness"; | |
813 | open $foo, "../harness"; | |
814 | opendir FOO, "."; | |
815 | opendir $foo, "."; | |
816 | no warnings qw(io deprecated); | |
817 | opendir FOO, "."; | |
818 | opendir $foo, "."; | |
819 | EXPECT | |
122d6c09 A |
820 | Opening filehandle FOO also as a directory. This will be a fatal error in Perl 5.28 at - line 9. |
821 | Opening filehandle $foo also as a directory. This will be a fatal error in Perl 5.28 at - line 10. | |
bf29d05f BF |
822 | ######## |
823 | # pp_sys.c [pp_*dir] | |
bad5a428 BF |
824 | use Config ; |
825 | BEGIN { | |
826 | if ( ! $Config{d_telldir}) { | |
827 | print <<EOM ; | |
828 | SKIPPED | |
829 | # telldir not present | |
830 | EOM | |
831 | exit | |
832 | } | |
833 | } | |
834 | #line 2 | |
bf29d05f BF |
835 | use warnings 'io'; |
836 | opendir FOO, "."; | |
837 | opendir $foo, "."; | |
838 | closedir FOO; | |
839 | closedir $foo; | |
840 | ||
841 | readdir(FOO); | |
842 | telldir(FOO); | |
843 | seekdir(FOO, 0); | |
844 | rewinddir(FOO); | |
845 | closedir(FOO); | |
846 | ||
847 | readdir($foo); | |
848 | telldir($foo); | |
849 | seekdir($foo, 0); | |
850 | rewinddir($foo); | |
851 | closedir($foo); | |
852 | ||
853 | EXPECT | |
854 | readdir() attempted on invalid dirhandle FOO at - line 8. | |
855 | telldir() attempted on invalid dirhandle FOO at - line 9. | |
856 | seekdir() attempted on invalid dirhandle FOO at - line 10. | |
857 | rewinddir() attempted on invalid dirhandle FOO at - line 11. | |
858 | closedir() attempted on invalid dirhandle FOO at - line 12. | |
859 | readdir() attempted on invalid dirhandle $foo at - line 14. | |
860 | telldir() attempted on invalid dirhandle $foo at - line 15. | |
861 | seekdir() attempted on invalid dirhandle $foo at - line 16. | |
862 | rewinddir() attempted on invalid dirhandle $foo at - line 17. | |
863 | closedir() attempted on invalid dirhandle $foo at - line 18. | |
864 | ######## | |
2dc9cdca | 865 | |
bf29d05f | 866 | # pp_sys.c [pp_*dir] |
bad5a428 BF |
867 | use Config ; |
868 | BEGIN { | |
869 | if ( ! $Config{d_telldir}) { | |
870 | print <<EOM ; | |
871 | SKIPPED | |
872 | # telldir not present | |
873 | EOM | |
874 | exit | |
875 | } | |
876 | } | |
877 | #line 3 | |
bf29d05f BF |
878 | use utf8; |
879 | use open qw( :utf8 :std ); | |
880 | use warnings 'io'; | |
881 | opendir FOO, "."; | |
882 | opendir $foo, "."; | |
883 | opendir FOO, "."; | |
884 | opendir $foo, "."; | |
885 | closedir FOO; | |
886 | closedir $foo; | |
887 | ||
888 | readdir(FOO); | |
889 | telldir(FOO); | |
890 | seekdir(FOO, 0); | |
891 | rewinddir(FOO); | |
892 | closedir(FOO); | |
893 | ||
894 | readdir($foo); | |
895 | telldir($foo); | |
896 | seekdir($foo, 0); | |
897 | rewinddir($foo); | |
898 | closedir($foo); | |
899 | ||
900 | EXPECT | |
2dc9cdca BF |
901 | readdir() attempted on invalid dirhandle FOO at - line 13. |
902 | telldir() attempted on invalid dirhandle FOO at - line 14. | |
903 | seekdir() attempted on invalid dirhandle FOO at - line 15. | |
904 | rewinddir() attempted on invalid dirhandle FOO at - line 16. | |
905 | closedir() attempted on invalid dirhandle FOO at - line 17. | |
906 | readdir() attempted on invalid dirhandle $foo at - line 19. | |
907 | telldir() attempted on invalid dirhandle $foo at - line 20. | |
908 | seekdir() attempted on invalid dirhandle $foo at - line 21. | |
909 | rewinddir() attempted on invalid dirhandle $foo at - line 22. | |
910 | closedir() attempted on invalid dirhandle $foo at - line 23. | |
d8bd3d82 FC |
911 | ######## |
912 | ||
913 | # pp_sys.c [pp_gmtime] | |
059d8568 | 914 | use Config; |
85272d31 | 915 | unless ($Config{d_double_has_nan}) { |
059d8568 JH |
916 | print <<EOM ; |
917 | SKIPPED | |
918 | # No nan support | |
919 | EOM | |
920 | exit ; | |
921 | } | |
d8bd3d82 FC |
922 | gmtime("NaN"); |
923 | localtime("NaN"); | |
924 | use warnings "overflow"; | |
925 | gmtime("NaN"); | |
926 | localtime("NaN"); | |
927 | ||
928 | EXPECT | |
85272d31 JH |
929 | gmtime(NaN) too large at - line 14. |
930 | gmtime(NaN) failed at - line 14. | |
931 | localtime(NaN) too large at - line 15. | |
932 | localtime(NaN) failed at - line 15. | |
add0dc91 JH |
933 | |
934 | ######## | |
935 | # pp_sys.c [pp_alarm] | |
936 | alarm(-1); | |
937 | no warnings "misc"; | |
938 | alarm(-1); | |
939 | ||
940 | EXPECT | |
941 | alarm() with negative argument at - line 2. | |
393bc9b3 JH |
942 | |
943 | ######## | |
944 | # pp_sys.c [pp_sleep] | |
945 | sleep(-1); | |
946 | no warnings "misc"; | |
947 | sleep(-1); | |
948 | ||
949 | EXPECT | |
950 | sleep() with negative argument at - line 2. | |
fb10a8a7 TC |
951 | ######## |
952 | # NAME sysread() deprecated on :utf8 | |
60e67244 | 953 | open my $fh, "<:raw", "../harness" or die "# $!"; |
fb10a8a7 TC |
954 | my $buf; |
955 | sysread $fh, $buf, 10; | |
956 | binmode $fh, ':utf8'; | |
957 | sysread $fh, $buf, 10; | |
89e5a021 TC |
958 | no warnings 'deprecated'; |
959 | sysread $fh, $buf, 10; | |
fb10a8a7 | 960 | EXPECT |
1972ac5c | 961 | sysread() is deprecated on :utf8 handles. This will be a fatal error in Perl 5.30 at - line 5. |
fb10a8a7 TC |
962 | ######## |
963 | # NAME syswrite() deprecated on :utf8 | |
964 | my $file = "syswwarn.tmp"; | |
60e67244 | 965 | open my $fh, ">:raw", $file or die "# $!"; |
fb10a8a7 TC |
966 | syswrite $fh, 'ABC'; |
967 | binmode $fh, ':utf8'; | |
968 | syswrite $fh, 'ABC'; | |
89e5a021 TC |
969 | no warnings 'deprecated'; |
970 | syswrite $fh, 'ABC'; | |
fb10a8a7 TC |
971 | close $fh; |
972 | unlink $file; | |
973 | EXPECT | |
1972ac5c | 974 | syswrite() is deprecated on :utf8 handles. This will be a fatal error in Perl 5.30 at - line 5. |