stas 2003/10/02 16:01:56
Modified: src/modules/perl modperl_io.c
Log:
STDIN needs < not >, so use "<&STDIN" not ">&STDIN"
Submitted by: Steve Hay <[EMAIL PROTECTED]>
Revision Changes Path
1.13 +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.12
retrieving revision 1.13
diff -u -u -r1.12 -r1.13
--- modperl_io.c 2 Oct 2003 09:03:32 -0000 1.12
+++ modperl_io.c 2 Oct 2003 23:01:56 -0000 1.13
@@ -98,8 +98,8 @@
sv_setref_pv(sv, "Apache::RequestRec", (void*)r);
MP_TRACE_o(MP_FUNC, "start");
- /* open my $oldout, ">&STDIN" or die "Can't dup STDIN: $!"; */
- status = Perl_do_open(aTHX_ handle_save, ">&STDIN", 7, FALSE, O_RDONLY,
+ /* open my $oldout, "<&STDIN" or die "Can't dup STDIN: $!"; */
+ status = Perl_do_open(aTHX_ handle_save, "<&STDIN", 7, FALSE, O_RDONLY,
0, Nullfp);
if (status == 0) {
Perl_croak(aTHX_ "Failed to dup STDIN: %_", get_sv("!", TRUE));
@@ -166,7 +166,7 @@
/* Perl_do_close(aTHX_ handle_orig, FALSE); */
- /* open STDIN, ">&STDIN_SAVED" or die "Can't dup STDIN_SAVED: $!"; */
+ /* open STDIN, "<&STDIN_SAVED" or die "Can't dup STDIN_SAVED: $!"; */
status = Perl_do_open9(aTHX_ handle_orig, "<&", 2, FALSE, O_RDONLY,
0, Nullfp, (SV*)handle, 1);
if (status == 0) {
