3 Can't open bidirectional pipe [Perl_do_open9]
6 Missing command in piped open [Perl_do_open9]
9 Missing command in piped open [Perl_do_open9]
12 warn(warn_nl, "open"); [Perl_do_open9]
15 close() on unopened filehandle %s [Perl_do_close]
16 $a = "fred";close("$a")
18 tell() on closed filehandle [Perl_do_tell]
19 $a = "fred";$a = tell($a)
21 seek() on closed filehandle [Perl_do_seek]
22 $a = "fred";$a = seek($a,1,1)
24 sysseek() on closed filehandle [Perl_do_sysseek]
25 $a = "fred";$a = seek($a,1,1)
27 warn(warn_uninit); [Perl_do_print]
30 -x on closed filehandle %s [Perl_my_stat]
31 close STDIN ; -x STDIN ;
33 warn(warn_nl, "stat"); [Perl_my_stat]
36 warn(warn_nl, "lstat"); [Perl_my_lstat]
39 Use of -l on filehandle %s [Perl_my_lstat]
41 Can't exec \"%s\": %s [Perl_do_aexec5]
43 Can't exec \"%s\": %s [Perl_do_exec3]
45 Filehandle %s opened only for output [Perl_do_eof]
48 Mandatory Warnings ALL TODO
50 Can't do inplace edit: %s is not a regular file [Perl_nextargv]
53 Can't do inplace edit: %s would not be unique [Perl_nextargv]
54 Can't rename %s to %s: %s, skipping file [Perl_nextargv]
55 Can't rename %s to %s: %s, skipping file [Perl_nextargv]
56 Can't remove %s: %s, skipping file [Perl_nextargv]
57 Can't do inplace edit on %s: %s [Perl_nextargv]
61 # doio.c [Perl_do_open9]
63 open(F, '|'."$^X -e 1|");
66 open(G, '|'."$^X -e 1|");
69 Can't open bidirectional pipe at - line 3.
71 # doio.c [Perl_do_open9]
77 Missing command in piped open at - line 3.
79 # doio.c [Perl_do_open9]
85 Missing command in piped open at - line 3.
87 # doio.c [Perl_do_open9]
93 Unsuccessful open on filename containing newline at - line 3.
95 # doio.c [Perl_do_close] <<TODO
96 use warnings 'unopened' ;
98 no warnings 'unopened' ;
101 close() on unopened filehandle fred at - line 3.
103 # doio.c [Perl_do_tell Perl_do_seek Perl_do_sysseek Perl_my_stat]
107 $a = seek(STDIN,1,1);
108 $a = sysseek(STDIN,1,1);
120 $a = seek(STDIN,1,1);
121 $a = sysseek(STDIN,1,1);
131 tell() on closed filehandle STDIN at - line 4.
132 seek() on closed filehandle STDIN at - line 5.
133 sysseek() on closed filehandle STDIN at - line 6.
134 -x on closed filehandle STDIN at - line 7.
135 stat() on closed filehandle STDIN at - line 8.
136 tell() on unopened filehandle at - line 10.
137 seek() on unopened filehandle at - line 11.
138 sysseek() on unopened filehandle at - line 12.
140 # doio.c [Perl_do_print]
141 use warnings 'uninitialized' ;
143 no warnings 'uninitialized' ;
146 Use of uninitialized value $a in print at - line 3.
148 # doio.c [Perl_my_stat Perl_my_lstat]
156 Unsuccessful stat on filename containing newline at - line 3.
157 Unsuccessful stat on filename containing newline at - line 4.
159 # doio.c [Perl_my_stat]
163 open $fh, $0 or die "# $!";
170 Use of -l on filehandle STDIN at - line 3.
171 Use of -l on filehandle $fh at - line 6.
173 # doio.c [Perl_do_aexec5]
175 if ($^O eq 'MacOS') {
184 exec "lskdjfalksdjfdjfkls","" ;
186 exec "lskdjfalksdjfdjfkls","" ;
189 Can't exec "lskdjfalksdjfdjfkls": .+
191 # doio.c [Perl_do_exec3]
193 if ($^O eq 'MacOS') {
202 exec "lskdjfalksdjfdjfkls", "abc" ;
204 exec "lskdjfalksdjfdjfkls", "abc" ;
207 Can't exec "lskdjfalksdjfdjfkls(:? abc)?": .+
209 # doio.c [win32_execvp]
211 if ($^O eq 'MacOS') {
219 use warnings 'exec' ;
223 # doio.c [Perl_nextargv]
225 my $filename = "./temp.dir" ;
226 mkdir $filename, 0777
227 or die "Cannot create directory $filename: $!\n" ;
229 local (@ARGV) = ($filename) ;
234 no warnings 'inplace' ;
235 local (@ARGV) = ($filename) ;
240 use warnings 'inplace' ;
241 local (@ARGV) = ($filename) ;
247 Can't do inplace edit: ./temp.dir is not a regular file at - line 9.
248 Can't do inplace edit: ./temp.dir is not a regular file at - line 21.
251 # doio.c [Perl_do_eof]
257 Filehandle STDOUT opened only for output at - line 3.
259 # doio.c [Perl_do_openn]
262 if ($Config{useperlio}) {
265 # warns only without perlio
273 open BAR, '>&', \*STDOUT; # should not warn
277 Can't open a reference at - line 14.
279 # doio.c [Perl_do_openn]
282 if (!$Config{useperlio}) {
285 # warns only with perlio
292 open FH1, "harness"; close FH1;
294 open FH2, "harness"; close FH2;
296 Filehandle STDOUT reopened as FH1 only for input at - line 14.
298 # doio.c [Perl_do_openn]
301 if (!$Config{useperlio}) {
304 # warns only with perlio
311 open my $fh1, ">doiowarn.tmp"; close $fh1;
313 open my $fh2, ">doiowarn.tmp"; close $fh2;
314 unlink "doiowarn.tmp";
316 Filehandle STDIN reopened as $fh1 only for output at - line 14.