Re: [ID 19991230.002] repeated pipe open broken

[Gurusamy Sarathy <gsar@ActiveState.com>]

On Thu, 30 Dec 1999 19:07:33 +0100, "Andreas J. Koenig" wrote:
>% ./perl5.005_58/perl -e 'print $], "\n"; 
>for (1,2,3){
>  open P, "echo foo|" or print "not ";
>  print "ok $_\n";
>}
>'
>5.00558
>ok 1
>not ok 2
>not ok 3

This appears to be due to:

    [  3786] By: gsar                                  on 1999/07/27  06:30:09
	    Log: applied suggested patch; added missing prototype changes to
		 opcode.pl along with documentation typos (feature still needs
		 to be described in perlopentut.pod and summarized in
		 perldelta.pod)
		 From: Ilya Zakharevich <ilya@math.ohio-state.edu>
		 Date: Thu, 17 Jun 1999 00:39:34 -0400 (EDT)
		 Message-Id: <199906170439.AAA18154@monk.mps.ohio-state.edu>
		 Subject: [PATCH 5.00557] 3-arg open
	 Branch: perl
	       ! doio.c embed.h embed.pl global.sym objXSUB.h opcode.h
	       ! opcode.pl perlapi.c pod/perldiag.pod pod/perlfunc.pod pp_sys.c
	       ! proto.h t/comp/proto.t t/io/open.t

Here's one clue:

    % perl -le '$_ = "echo x|"; open P, $_ or die; print'
    echo x
          ^
Note missing "|" at end.


Sarathy
gsar@ActiveState.com

---

References to:

"Andreas J. Koenig" <k@hohenstaufen.in-berlin.de>

---

[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index][Thread Index][Top&Search][Original]

---