Return-Path: Delivered-To: apmail-perl-dev-archive@www.apache.org Received: (qmail 91989 invoked from network); 6 Oct 2003 19:14:50 -0000 Received: from daedalus.apache.org (HELO mail.apache.org) (208.185.179.12) by minotaur-2.apache.org with SMTP; 6 Oct 2003 19:14:50 -0000 Received: (qmail 69589 invoked by uid 500); 6 Oct 2003 19:14:40 -0000 Delivered-To: apmail-perl-dev-archive@perl.apache.org Received: (qmail 69441 invoked by uid 500); 6 Oct 2003 19:14:39 -0000 Mailing-List: contact dev-help@perl.apache.org; run by ezmlm Precedence: bulk list-help: list-unsubscribe: list-post: Delivered-To: mailing list dev@perl.apache.org Received: (qmail 69427 invoked from network); 6 Oct 2003 19:14:38 -0000 Received: from unknown (HELO mail.logilune.com) (195.154.174.52) by daedalus.apache.org with SMTP; 6 Oct 2003 19:14:38 -0000 Received: from stason.org (localhost.logilune.com [127.0.0.1]) by mail.logilune.com (Postfix) with ESMTP id CAE82798CF; Mon, 6 Oct 2003 21:14:37 +0200 (CEST) Message-ID: <3F81BF18.6070706@stason.org> Date: Mon, 06 Oct 2003 12:14:32 -0700 From: Stas Bekman Organization: Hope, Humanized User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.4) Gecko/20030630 X-Accept-Language: en-us, en, he, ru MIME-Version: 1.0 To: Steve Hay Cc: Randy Kobes , mod_perl Dev Subject: Re: t/SMOKE on win32 References: <200309301950.h8UJoV125267@ironsides.slaysys.com> <3F79F1B4.2070804@stason.org> <3F7AF04E.2010003@uk.radan.com> <3F7B0F89.1020901@stason.org> <3F7BE749.3070209@uk.radan.com> <3F7BE992.4030504@stason.org> <3F7BF50F.4050202@uk.radan.com> <3F7CAFD9.1060508@stason.org> <3F7D35B3.300@uk.radan.com> <3F7D3C6C.7020206@uk.radan.com> <3F7D94C6.4030107@uk.radan.com> <3F7DA9D1.1000603@uk.radan.com> <3F7DBC0B.1060004@stason.org> <3F7DE408.7080304@stason.org> <3F819B22.3010203@uk.radan.com> In-Reply-To: <3F819B22.3010203@uk.radan.com> Content-Type: text/plain; charset=us-ascii; format=flowed Content-Transfer-Encoding: 7bit X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N X-Spam-Rating: minotaur-2.apache.org 1.6.2 0/1000/N 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