perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Stas Bekman <s...@stason.org>
Subject Re: t/SMOKE on win32
Date Mon, 06 Oct 2003 19:14:32 GMT
Steve Hay wrote:
[...]
Any luck with either of the two following patches?

Index: src/modules/perl/modperl_io.c
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_io.c,v
retrieving revision 1.14
diff -u -r1.14 modperl_io.c
--- src/modules/perl/modperl_io.c	3 Oct 2003 17:45:23 -0000	1.14
+++ src/modules/perl/modperl_io.c	6 Oct 2003 19:12:11 -0000
@@ -173,6 +173,8 @@
          Perl_croak(aTHX_ "Failed to restore STDIN: %_", get_sv("!", TRUE));
      }

+    Perl_do_close(aTHX_ handle, FALSE);
+
      IoFLUSH_off(handle); /* STDIN's $|=0 */

      MP_TRACE_o(MP_FUNC, "end\n");
@@ -193,6 +195,8 @@
      if (status == 0) {
          Perl_croak(aTHX_ "Failed to restore STDOUT: %_", get_sv("!", TRUE));
      }
+
+    Perl_do_close(aTHX_ handle, FALSE);

      MP_TRACE_o(MP_FUNC, "end\n");
  }


Index: src/modules/perl/modperl_io.c
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_io.c,v
retrieving revision 1.14
diff -u -r1.14 modperl_io.c
--- src/modules/perl/modperl_io.c	3 Oct 2003 17:45:23 -0000	1.14
+++ src/modules/perl/modperl_io.c	6 Oct 2003 19:13:25 -0000
@@ -164,7 +164,7 @@

      MP_TRACE_o(MP_FUNC, "start");

-    /* Perl_do_close(aTHX_ handle_orig, FALSE); */
+    Perl_do_close(aTHX_ handle_orig, FALSE);

      /* open STDIN, "<&STDIN_SAVED" or die "Can't dup STDIN_SAVED: $!"; */
      status = Perl_do_open9(aTHX_ handle_orig, "<&", 2, FALSE, O_RDONLY,
@@ -173,6 +173,8 @@
          Perl_croak(aTHX_ "Failed to restore STDIN: %_", get_sv("!", TRUE));
      }

+    Perl_do_close(aTHX_ handle, FALSE);
+
      IoFLUSH_off(handle); /* STDIN's $|=0 */

      MP_TRACE_o(MP_FUNC, "end\n");
@@ -185,7 +187,7 @@

      MP_TRACE_o(MP_FUNC, "start");

-    /* Perl_do_close(aTHX_ handle_orig, FALSE); */
+    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_WRONLY,
@@ -193,6 +195,8 @@
      if (status == 0) {
          Perl_croak(aTHX_ "Failed to restore STDOUT: %_", get_sv("!", TRUE));
      }
+
+    Perl_do_close(aTHX_ handle, FALSE);

      MP_TRACE_o(MP_FUNC, "end\n");
  }


__________________________________________________________________
Stas Bekman            JAm_pH ------> Just Another mod_perl Hacker
http://stason.org/     mod_perl Guide ---> http://perl.apache.org
mailto:stas@stason.org http://use.perl.org http://apacheweek.com
http://modperlbook.org http://apache.org   http://ticketmaster.com


---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org


Mime
View raw message