From: Benjamin Holzman <bah@ecnvantage.com>
Date: Sun, 26 Nov 2000 16:27:33 +0000 (-0500)
Subject: Re: [ID 20001122.006] weird behaviour of $|
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d8ce0c9a4592a2aeb75bb4cdd4af0c5382a2e6ab;p=p5sagit%2Fp5-mst-13.2.git

Re: [ID 20001122.006] weird behaviour of $|
Message-ID: <20001126162733.J25040@ecnvantage.com>

p4raw-id: //depot/perl@7890
---

diff --git a/gv.c b/gv.c
index 86d8e79..5c9015d 100644
--- a/gv.c
+++ b/gv.c
@@ -840,7 +840,6 @@ Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, I32 sv_type)
     case ',':
     case '\\':
     case '/':
-    case '|':
     case '\001':	/* $^A */
     case '\003':	/* $^C */
     case '\004':	/* $^D */
@@ -853,6 +852,11 @@ Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, I32 sv_type)
 	if (len > 1)
 	    break;
 	goto magicalize;
+    case '|':
+	if (len > 1)
+	    break;
+	sv_setiv(GvSV(gv), (IV)(IoFLAGS(GvIOp(PL_defoutgv)) & IOf_FLUSH) != 0);
+	goto magicalize;
     case '\017':	/* $^O & $^OPEN */
 	if (len > 1 && strNE(name, "\017PEN"))
 	    break;