diff options
| author | Benjamin Holzman <bah@ecnvantage.com> | 2000-11-26 11:27:33 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-27 14:53:14 +0000 |
| commit | d8ce0c9a4592a2aeb75bb4cdd4af0c5382a2e6ab (patch) | |
| tree | 813abc0f7d11d1b08ed5ea01d1ed3da131826fd9 /gv.c | |
| parent | b8e4d24f4b5aa6d96bf7be09a47f7ce02c09104b (diff) | |
| download | perl-d8ce0c9a4592a2aeb75bb4cdd4af0c5382a2e6ab.tar.gz | |
Re: [ID 20001122.006] weird behaviour of $|
Message-ID: <20001126162733.J25040@ecnvantage.com>
p4raw-id: //depot/perl@7890
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -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; |