[PATCH t/op/taint.t] remove possible false positive
[p5sagit/p5-mst-13.2.git] / t / lib / warnings / doio
CommitLineData
767a6a26 1 doio.c
599cee73 2
9a7dcd9c 3 Can't open bidirectional pipe [Perl_do_open9]
599cee73 4 open(F, "| true |");
5
767a6a26 6 Missing command in piped open [Perl_do_open9]
06eaf0bc 7 open(F, "| ");
8
767a6a26 9 Missing command in piped open [Perl_do_open9]
06eaf0bc 10 open(F, " |");
11
767a6a26 12 warn(warn_nl, "open"); [Perl_do_open9]
599cee73 13 open(F, "true\ncd")
14
2dd78f96 15 close() on unopened filehandle %s [Perl_do_close]
767a6a26 16 $a = "fred";close("$a")
599cee73 17
2dd78f96 18 tell() on closed filehandle [Perl_do_tell]
599cee73 19 $a = "fred";$a = tell($a)
20
2dd78f96 21 seek() on closed filehandle [Perl_do_seek]
599cee73 22 $a = "fred";$a = seek($a,1,1)
23
2dd78f96 24 sysseek() on closed filehandle [Perl_do_sysseek]
599cee73 25 $a = "fred";$a = seek($a,1,1)
26
767a6a26 27 warn(warn_uninit); [Perl_do_print]
599cee73 28 print $a ;
29
2dd78f96 30 -x on closed filehandle %s [Perl_my_stat]
599cee73 31 close STDIN ; -x STDIN ;
32
767a6a26 33 warn(warn_nl, "stat"); [Perl_my_stat]
599cee73 34 stat "ab\ncd"
35
767a6a26 36 warn(warn_nl, "lstat"); [Perl_my_lstat]
599cee73 37 lstat "ab\ncd"
38
767a6a26 39 Can't exec \"%s\": %s [Perl_do_aexec5]
599cee73 40
767a6a26 41 Can't exec \"%s\": %s [Perl_do_exec3]
599cee73 42
767a6a26 43 Filehandle %s opened only for output [Perl_do_eof]
44 my $a = eof STDOUT
599cee73 45
0453d815 46 Mandatory Warnings ALL TODO
47 ------------------
767a6a26 48 Can't do inplace edit: %s is not a regular file [Perl_nextargv]
0453d815 49 edit a directory
50
767a6a26 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]
0453d815 56
57
599cee73 58__END__
767a6a26 59# doio.c [Perl_do_open9]
4438c4b7 60use warnings 'io' ;
3eeba6fb 61open(F, '|'.($^O eq 'VMS' ? 'mcr ':'')."$^X -e 1|");
62close(F);
4438c4b7 63no warnings 'io' ;
0453d815 64open(G, '|'.($^O eq 'VMS' ? 'mcr ':'')."$^X -e 1|");
65close(G);
599cee73 66EXPECT
9a7dcd9c 67Can't open bidirectional pipe at - line 3.
599cee73 68########
767a6a26 69# doio.c [Perl_do_open9]
4438c4b7 70use warnings 'io' ;
0453d815 71open(F, "| ");
4438c4b7 72no warnings 'io' ;
0453d815 73open(G, "| ");
06eaf0bc 74EXPECT
75Missing command in piped open at - line 3.
76########
767a6a26 77# doio.c [Perl_do_open9]
4438c4b7 78use warnings 'io' ;
0453d815 79open(F, " |");
4438c4b7 80no warnings 'io' ;
0453d815 81open(G, " |");
06eaf0bc 82EXPECT
83Missing command in piped open at - line 3.
84########
767a6a26 85# doio.c [Perl_do_open9]
4438c4b7 86use warnings 'io' ;
0453d815 87open(F, "<true\ncd");
4438c4b7 88no warnings 'io' ;
0453d815 89open(G, "<true\ncd");
599cee73 90EXPECT
91Unsuccessful open on filename containing newline at - line 3.
92########
767a6a26 93# doio.c [Perl_do_close] <<TODO
94use warnings 'unopened' ;
95close "fred" ;
96no warnings 'unopened' ;
97close "joe" ;
98EXPECT
9ddeeac9 99close() on unopened filehandle fred at - line 3.
767a6a26 100########
101# doio.c [Perl_do_tell Perl_do_seek Perl_do_sysseek Perl_my_stat]
4438c4b7 102use warnings 'io' ;
599cee73 103close STDIN ;
104tell(STDIN);
105$a = seek(STDIN,1,1);
106$a = sysseek(STDIN,1,1);
107-x STDIN ;
9ddeeac9 108stat(STDIN) ;
2dd78f96 109$a = "fred";
110tell($a);
111seek($a,1,1);
112sysseek($a,1,1);
113-x $a; # ok
114stat($a); # ok
4438c4b7 115no warnings 'io' ;
0453d815 116close STDIN ;
117tell(STDIN);
118$a = seek(STDIN,1,1);
119$a = sysseek(STDIN,1,1);
120-x STDIN ;
9ddeeac9 121stat(STDIN) ;
2dd78f96 122$a = "fred";
123tell($a);
124seek($a,1,1);
125sysseek($a,1,1);
126-x $a;
127stat($a);
599cee73 128EXPECT
2dd78f96 129tell() on closed filehandle STDIN at - line 4.
130seek() on closed filehandle STDIN at - line 5.
131sysseek() on closed filehandle STDIN at - line 6.
132-x on closed filehandle STDIN at - line 7.
133stat() on closed filehandle STDIN at - line 8.
134tell() on unopened filehandle at - line 10.
135seek() on unopened filehandle at - line 11.
136sysseek() on unopened filehandle at - line 12.
599cee73 137########
767a6a26 138# doio.c [Perl_do_print]
4438c4b7 139use warnings 'uninitialized' ;
599cee73 140print $a ;
4438c4b7 141no warnings 'uninitialized' ;
0453d815 142print $b ;
599cee73 143EXPECT
b89fed5f 144Use of uninitialized value in print at - line 3.
599cee73 145########
767a6a26 146# doio.c [Perl_my_stat Perl_my_lstat]
4438c4b7 147use warnings 'io' ;
599cee73 148stat "ab\ncd";
149lstat "ab\ncd";
4438c4b7 150no warnings 'io' ;
0453d815 151stat "ab\ncd";
152lstat "ab\ncd";
599cee73 153EXPECT
154Unsuccessful stat on filename containing newline at - line 3.
155Unsuccessful stat on filename containing newline at - line 4.
156########
767a6a26 157# doio.c [Perl_do_aexec5]
4438c4b7 158use warnings 'io' ;
dfe13c55 159exec "lskdjfalksdjfdjfkls","" ;
4438c4b7 160no warnings 'io' ;
0453d815 161exec "lskdjfalksdjfdjfkls","" ;
599cee73 162EXPECT
e5e1b98b 163OPTION regex
c4f6c246 164Can't exec "lskdjfalksdjfdjfkls": .+
599cee73 165########
767a6a26 166# doio.c [Perl_do_exec3]
4438c4b7 167use warnings 'io' ;
599cee73 168exec "lskdjfalksdjfdjfkls", "abc" ;
4438c4b7 169no warnings 'io' ;
0453d815 170exec "lskdjfalksdjfdjfkls", "abc" ;
599cee73 171EXPECT
e5e1b98b 172OPTION regex
3eeba6fb 173Can't exec "lskdjfalksdjfdjfkls(:? abc)?": .+
0453d815 174########
0698c26b 175# doio.c [win32_execvp]
176use warnings 'exec' ;
177exec $^X, "-e0" ;
178EXPECT
179########
767a6a26 180# doio.c [Perl_nextargv]
0453d815 181$^W = 0 ;
ccc2aad8 182my $filename = "./temp.dir" ;
0453d815 183mkdir $filename, 0777
184 or die "Cannot create directory $filename: $!\n" ;
185{
186 local (@ARGV) = ($filename) ;
187 local ($^I) = "" ;
188 my $x = <> ;
189}
190{
4438c4b7 191 no warnings 'inplace' ;
0453d815 192 local (@ARGV) = ($filename) ;
193 local ($^I) = "" ;
194 my $x = <> ;
195}
196{
4438c4b7 197 use warnings 'inplace' ;
0453d815 198 local (@ARGV) = ($filename) ;
199 local ($^I) = "" ;
200 my $x = <> ;
201}
202rmdir $filename ;
203EXPECT
ccc2aad8 204Can't do inplace edit: ./temp.dir is not a regular file at - line 9.
205Can't do inplace edit: ./temp.dir is not a regular file at - line 21.
0453d815 206
767a6a26 207########
208# doio.c [Perl_do_eof]
209use warnings 'io' ;
210my $a = eof STDOUT ;
211no warnings 'io' ;
212$a = eof STDOUT ;
213EXPECT
43693395 214Filehandle STDOUT opened only for output at - line 3.