1N/A doio.c

1N/A

1N/A Can't open bidirectional pipe [Perl_do_open9]

1N/A open(F, "| true |");

1N/A

1N/A Missing command in piped open [Perl_do_open9]

1N/A open(F, "| ");

1N/A

1N/A Missing command in piped open [Perl_do_open9]

1N/A open(F, " |");

1N/A

1N/A warn(warn_nl, "open"); [Perl_do_open9]

1N/A open(F, "true\ncd")

1N/A

1N/A close() on unopened filehandle %s [Perl_do_close]

1N/A $a = "fred";close("$a")

1N/A

1N/A tell() on closed filehandle [Perl_do_tell]

1N/A $a = "fred";$a = tell($a)

1N/A

1N/A seek() on closed filehandle [Perl_do_seek]

1N/A $a = "fred";$a = seek($a,1,1)

1N/A

1N/A sysseek() on closed filehandle [Perl_do_sysseek]

1N/A $a = "fred";$a = seek($a,1,1)

1N/A

1N/A warn(warn_uninit); [Perl_do_print]

1N/A print $a ;

1N/A

1N/A -x on closed filehandle %s [Perl_my_stat]

1N/A close STDIN ; -x STDIN ;

1N/A

1N/A warn(warn_nl, "stat"); [Perl_my_stat]

1N/A stat "ab\ncd"

1N/A

1N/A warn(warn_nl, "lstat"); [Perl_my_lstat]

1N/A lstat "ab\ncd"

1N/A

1N/A Use of -l on filehandle %s [Perl_my_lstat]

1N/A

1N/A Can't exec \"%s\": %s [Perl_do_aexec5]

1N/A

1N/A Can't exec \"%s\": %s [Perl_do_exec3]

1N/A

1N/A Filehandle %s opened only for output [Perl_do_eof]

1N/A my $a = eof STDOUT

1N/A

1N/A Mandatory Warnings ALL TODO

1N/A ------------------

1N/A Can't do inplace edit: %s is not a regular file [Perl_nextargv]

1N/A edit a directory

1N/A

1N/A Can't do inplace edit: %s would not be unique [Perl_nextargv]

1N/A Can't rename %s to %s: %s, skipping file [Perl_nextargv]

1N/A Can't rename %s to %s: %s, skipping file [Perl_nextargv]

1N/A Can't remove %s: %s, skipping file [Perl_nextargv]

1N/A Can't do inplace edit on %s: %s [Perl_nextargv]

1N/A

1N/A

1N/A__END__

1N/A# doio.c [Perl_do_open9]

1N/Ause warnings 'io' ;

1N/Aopen(F, '|'.($^O eq 'VMS' ? 'mcr ':'')."$^X -e 1|");

1N/Aclose(F);

1N/Ano warnings 'io' ;

1N/Aopen(G, '|'.($^O eq 'VMS' ? 'mcr ':'')."$^X -e 1|");

1N/Aclose(G);

1N/AEXPECT

1N/ACan't open bidirectional pipe at - line 3.

1N/A########

1N/A# doio.c [Perl_do_open9]

1N/Ause warnings 'io' ;

1N/Aopen(F, "| ");

1N/Ano warnings 'io' ;

1N/Aopen(G, "| ");

1N/AEXPECT

1N/AMissing command in piped open at - line 3.

1N/A########

1N/A# doio.c [Perl_do_open9]

1N/Ause warnings 'io' ;

1N/Aopen(F, " |");

1N/Ano warnings 'io' ;

1N/Aopen(G, " |");

1N/AEXPECT

1N/AMissing command in piped open at - line 3.

1N/A########

1N/A# doio.c [Perl_do_open9]

1N/Ause warnings 'io' ;

1N/Aopen(F, "<true\ncd");

1N/Ano warnings 'io' ;

1N/Aopen(G, "<true\ncd");

1N/AEXPECT

1N/AUnsuccessful open on filename containing newline at - line 3.

1N/A########

1N/A# doio.c [Perl_do_close] <<TODO

1N/Ause warnings 'unopened' ;

1N/Aclose "fred" ;

1N/Ano warnings 'unopened' ;

1N/Aclose "joe" ;

1N/AEXPECT

1N/Aclose() on unopened filehandle fred at - line 3.

1N/A########

1N/A# doio.c [Perl_do_tell Perl_do_seek Perl_do_sysseek Perl_my_stat]

1N/Ause warnings 'io' ;

1N/Aclose STDIN ;

1N/Atell(STDIN);

1N/A$a = seek(STDIN,1,1);

1N/A$a = sysseek(STDIN,1,1);

1N/A-x STDIN ;

1N/Astat(STDIN) ;

1N/A$a = "fred";

1N/Atell($a);

1N/Aseek($a,1,1);

1N/Asysseek($a,1,1);

1N/A-x $a; # ok

1N/Astat($a); # ok

1N/Ano warnings 'io' ;

1N/Aclose STDIN ;

1N/Atell(STDIN);

1N/A$a = seek(STDIN,1,1);

1N/A$a = sysseek(STDIN,1,1);

1N/A-x STDIN ;

1N/Astat(STDIN) ;

1N/A$a = "fred";

1N/Atell($a);

1N/Aseek($a,1,1);

1N/Asysseek($a,1,1);

1N/A-x $a;

1N/Astat($a);

1N/AEXPECT

1N/Atell() on closed filehandle STDIN at - line 4.

1N/Aseek() on closed filehandle STDIN at - line 5.

1N/Asysseek() on closed filehandle STDIN at - line 6.

1N/A-x on closed filehandle STDIN at - line 7.

1N/Astat() on closed filehandle STDIN at - line 8.

1N/Atell() on unopened filehandle at - line 10.

1N/Aseek() on unopened filehandle at - line 11.

1N/Asysseek() on unopened filehandle at - line 12.

1N/A########

1N/A# doio.c [Perl_do_print]

1N/Ause warnings 'uninitialized' ;

1N/Aprint $a ;

1N/Ano warnings 'uninitialized' ;

1N/Aprint $b ;

1N/AEXPECT

1N/AUse of uninitialized value in print at - line 3.

1N/A########

1N/A# doio.c [Perl_my_stat Perl_my_lstat]

1N/Ause warnings 'io' ;

1N/Astat "ab\ncd";

1N/Alstat "ab\ncd";

1N/Ano warnings 'io' ;

1N/Astat "ab\ncd";

1N/Alstat "ab\ncd";

1N/AEXPECT

1N/AUnsuccessful stat on filename containing newline at - line 3.

1N/AUnsuccessful stat on filename containing newline at - line 4.

1N/A########

1N/A# doio.c [Perl_my_stat]

1N/Ause warnings 'io';

1N/A-l STDIN;

1N/A-l $fh;

1N/Aopen $fh, $0 or die "# $!";

1N/A-l $fh;

1N/Ano warnings 'io';

1N/A-l STDIN;

1N/A-l $fh;

1N/Aclose $fh;

1N/AEXPECT

1N/AUse of -l on filehandle STDIN at - line 3.

1N/AUse of -l on filehandle $fh at - line 6.

1N/A########

1N/A# doio.c [Perl_do_aexec5]

1N/ABEGIN {

1N/A if ($^O eq 'MacOS') {

1N/A print <<EOM;

1N/ASKIPPED

1N/A# no exec on Mac OS

1N/AEOM

1N/A exit;

1N/A }

1N/A}

1N/Ause warnings 'io' ;

1N/Aexec "lskdjfalksdjfdjfkls","" ;

1N/Ano warnings 'io' ;

1N/Aexec "lskdjfalksdjfdjfkls","" ;

1N/AEXPECT

1N/AOPTION regex

1N/ACan't exec "lskdjfalksdjfdjfkls": .+

1N/A########

1N/A# doio.c [Perl_do_exec3]

1N/ABEGIN {

1N/A if ($^O eq 'MacOS') {

1N/A print <<EOM;

1N/ASKIPPED

1N/A# no exec on Mac OS

1N/AEOM

1N/A exit;

1N/A }

1N/A}

1N/Ause warnings 'io' ;

1N/Aexec "lskdjfalksdjfdjfkls", "abc" ;

1N/Ano warnings 'io' ;

1N/Aexec "lskdjfalksdjfdjfkls", "abc" ;

1N/AEXPECT

1N/AOPTION regex

1N/ACan't exec "lskdjfalksdjfdjfkls(:? abc)?": .+

1N/A########

1N/A# doio.c [win32_execvp]

1N/ABEGIN {

1N/A if ($^O eq 'MacOS') {

1N/A print <<EOM;

1N/ASKIPPED

1N/A# no exec on Mac OS

1N/AEOM

1N/A exit;

1N/A }

1N/A}

1N/Ause warnings 'exec' ;

1N/Aexec $^X, "-e0" ;

1N/AEXPECT

1N/A########

1N/A# doio.c [Perl_nextargv]

1N/A$^W = 0 ;

1N/Amy $filename = "./temp.dir" ;

1N/Amkdir $filename, 0777

1N/A or die "Cannot create directory $filename: $!\n" ;

1N/A{

1N/A local (@ARGV) = ($filename) ;

1N/A local ($^I) = "" ;

1N/A my $x = <> ;

1N/A}

1N/A{

1N/A no warnings 'inplace' ;

1N/A local (@ARGV) = ($filename) ;

1N/A local ($^I) = "" ;

1N/A my $x = <> ;

1N/A}

1N/A{

1N/A use warnings 'inplace' ;

1N/A local (@ARGV) = ($filename) ;

1N/A local ($^I) = "" ;

1N/A my $x = <> ;

1N/A}

1N/Armdir $filename ;

1N/AEXPECT

1N/ACan't do inplace edit: ./temp.dir is not a regular file at - line 9.

1N/ACan't do inplace edit: ./temp.dir is not a regular file at - line 21.

1N/A

1N/A########

1N/A# doio.c [Perl_do_eof]

1N/Ause warnings 'io' ;

1N/Amy $a = eof STDOUT ;

1N/Ano warnings 'io' ;

1N/A$a = eof STDOUT ;

1N/AEXPECT

1N/AFilehandle STDOUT opened only for output at - line 3.

1N/A########

1N/A# doio.c [Perl_do_openn]

1N/Ause Config;

1N/ABEGIN {

1N/A if ($Config{useperlio}) {

1N/A print <<EOM;

1N/ASKIPPED

1N/A# warns only without perlio

1N/AEOM

1N/A exit;

1N/A }

1N/A}

1N/Ause warnings 'io';

1N/Amy $x = "foo";

1N/Aopen FOO, '>', \$x;

1N/Aopen BAR, '>&', \*STDOUT; # should not warn

1N/Ano warnings 'io';

1N/Aopen FOO, '>', \$x;

1N/AEXPECT

1N/ACan't open a reference at - line 14.

1N/A########

1N/A# doio.c [Perl_do_openn]

1N/Ause Config;

1N/ABEGIN {

1N/A if (!$Config{useperlio}) {

1N/A print <<EOM;

1N/ASKIPPED

1N/A# warns only with perlio

1N/AEOM

1N/A exit;

1N/A }

1N/A}

1N/Ause warnings 'io' ;

1N/Aclose STDOUT;

1N/Aopen FH1, "harness"; close FH1;

1N/Ano warnings 'io' ;

1N/Aopen FH2, "harness"; close FH2;

1N/AEXPECT

1N/AFilehandle STDOUT reopened as FH1 only for input at - line 14.

1N/A########

1N/A# doio.c [Perl_do_openn]

1N/Ause Config;

1N/ABEGIN {

1N/A if (!$Config{useperlio}) {

1N/A print <<EOM;

1N/ASKIPPED

1N/A# warns only with perlio

1N/AEOM

1N/A exit;

1N/A }

1N/A}

1N/Ause warnings 'io' ;

1N/Aclose STDIN;

1N/Aopen my $fh1, ">doiowarn.tmp"; close $fh1;

1N/Ano warnings 'io' ;

1N/Aopen my $fh2, ">doiowarn.tmp"; close $fh2;

1N/Aunlink "doiowarn.tmp";

1N/AEXPECT

1N/AFilehandle STDIN reopened as $fh1 only for output at - line 14.