3 Can't do 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 file <%s> [Perl_do_close] <<TODO
16 $a = "fred";close("$a")
18 tell() on unopened file [Perl_do_tell]
19 $a = "fred";$a = tell($a)
21 seek() on unopened file [Perl_do_seek]
22 $a = "fred";$a = seek($a,1,1)
24 sysseek() on unopened file [Perl_do_sysseek]
25 $a = "fred";$a = seek($a,1,1)
27 warn(warn_uninit); [Perl_do_print]
30 Stat on unopened file <%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 Can't exec \"%s\": %s [Perl_do_aexec5]
41 Can't exec \"%s\": %s [Perl_do_exec3]
43 Filehandle %s opened only for output [Perl_do_eof]
46 Mandatory Warnings ALL TODO
48 Can't do inplace edit: %s is not a regular file [Perl_nextargv]
51 Can't do inplace edit: %s would not be unique [Perl_nextargv]
52 Can't rename %s to %s: %s, skipping file [Perl_nextargv]
53 Can't rename %s to %s: %s, skipping file [Perl_nextargv]
54 Can't remove %s: %s, skipping file [Perl_nextargv]
55 Can't do inplace edit on %s: %s [Perl_nextargv]
59 # doio.c [Perl_do_open9]
61 open(F, '|'.($^O eq 'VMS' ? 'mcr ':'')."$^X -e 1|");
64 open(G, '|'.($^O eq 'VMS' ? 'mcr ':'')."$^X -e 1|");
67 Can't do bidirectional pipe at - line 3.
69 # doio.c [Perl_do_open9]
75 Missing command in piped open at - line 3.
77 # doio.c [Perl_do_open9]
83 Missing command in piped open at - line 3.
85 # doio.c [Perl_do_open9]
91 Unsuccessful open on filename containing newline at - line 3.
93 # doio.c [Perl_do_close] <<TODO
94 use warnings 'unopened' ;
96 no warnings 'unopened' ;
99 Close on unopened file <fred> at - line 3.
101 # doio.c [Perl_do_tell Perl_do_seek Perl_do_sysseek Perl_my_stat]
105 $a = seek(STDIN,1,1);
106 $a = sysseek(STDIN,1,1);
111 $a = seek(STDIN,1,1);
112 $a = sysseek(STDIN,1,1);
115 tell() on unopened file at - line 4.
116 seek() on unopened file at - line 5.
117 sysseek() on unopened file at - line 6.
118 Stat on unopened file <STDIN> at - line 7.
120 # doio.c [Perl_do_print]
121 use warnings 'uninitialized' ;
123 no warnings 'uninitialized' ;
126 Use of uninitialized value in print at - line 3.
128 # doio.c [Perl_my_stat Perl_my_lstat]
136 Unsuccessful stat on filename containing newline at - line 3.
137 Unsuccessful stat on filename containing newline at - line 4.
139 # doio.c [Perl_do_aexec5]
141 exec "lskdjfalksdjfdjfkls","" ;
143 exec "lskdjfalksdjfdjfkls","" ;
146 Can't exec "lskdjfalksdjfdjfkls": .+
148 # doio.c [Perl_do_exec3]
150 exec "lskdjfalksdjfdjfkls", "abc" ;
152 exec "lskdjfalksdjfdjfkls", "abc" ;
155 Can't exec "lskdjfalksdjfdjfkls(:? abc)?": .+
157 # doio.c [Perl_nextargv]
159 my $filename = "./temp" ;
160 mkdir $filename, 0777
161 or die "Cannot create directory $filename: $!\n" ;
163 local (@ARGV) = ($filename) ;
168 no warnings 'inplace' ;
169 local (@ARGV) = ($filename) ;
174 use warnings 'inplace' ;
175 local (@ARGV) = ($filename) ;
181 Can't do inplace edit: ./temp is not a regular file at - line 9.
182 Can't do inplace edit: ./temp is not a regular file at - line 21.
185 # doio.c [Perl_do_eof]
191 Filehandle main::STDOUT opened only for output at - line 3.