stas 2003/10/03 10:45:23
Modified: src/modules/perl modperl_io.c
Log:
STDOUT is O_WRONLY, not O_RDONLY (though since it's a dup op, it doesn't
really matter)
Submitted by: Steve Hay
Revision Changes Path
1.14 +3 -3 modperl-2.0/src/modules/perl/modperl_io.c
Index: modperl_io.c
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_io.c,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -u -r1.13 -r1.14
--- modperl_io.c 2 Oct 2003 23:01:56 -0000 1.13
+++ modperl_io.c 3 Oct 2003 17:45:23 -0000 1.14
@@ -133,7 +133,7 @@
sv_setref_pv(sv, "Apache::RequestRec", (void*)r);
/* open my $oldout, ">&STDOUT" or die "Can't dup STDOUT: $!"; */
- status = Perl_do_open(aTHX_ handle_save, ">&STDOUT", 8, FALSE, O_RDONLY,
+ status = Perl_do_open(aTHX_ handle_save, ">&STDOUT", 8, FALSE, O_WRONLY,
0, Nullfp);
if (status == 0) {
Perl_croak(aTHX_ "Failed to dup STDOUT: %_", get_sv("!", TRUE));
@@ -143,7 +143,7 @@
* have file descriptors, so STDOUT must be closed before it can
* be reopened */
Perl_do_close(aTHX_ handle, TRUE);
- status = Perl_do_open9(aTHX_ handle, ">:Apache", 8, FALSE, O_RDONLY,
+ status = Perl_do_open9(aTHX_ handle, ">:Apache", 8, FALSE, O_WRONLY,
0, Nullfp, sv, 1);
if (status == 0) {
Perl_croak(aTHX_ "Failed to open STDOUT: %_", get_sv("!", TRUE));
@@ -188,7 +188,7 @@
/* Perl_do_close(aTHX_ handle_orig, FALSE); */
/* open STDOUT, ">&STDOUT_SAVED" or die "Can't dup STDOUT_SAVED: $!"; */
- status = Perl_do_open9(aTHX_ handle_orig, ">&", 2, FALSE, O_RDONLY,
+ status = Perl_do_open9(aTHX_ handle_orig, ">&", 2, FALSE, O_WRONLY,
0, Nullfp, (SV*)handle, 1);
if (status == 0) {
Perl_croak(aTHX_ "Failed to restore STDOUT: %_", get_sv("!", TRUE));
