diff options
| author | Robert Spier <rspier@pobox.com> | 2001-06-27 19:13:16 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-28 03:49:07 +0000 |
| commit | 01a8ea99aa0cc0263eb74d7ab3d340994973e3f6 (patch) | |
| tree | 195ac1ae22ee7ce259ca56206e6a3ab81b26c45f /doio.c | |
| parent | a333faafe1ea79cc2ee6a8e7cd6170ab2dcba713 (diff) | |
| download | perl-01a8ea99aa0cc0263eb74d7ab3d340994973e3f6.tar.gz | |
[ID 20010625.009] open(FILE,"+foo") [PATCH]
Message-ID: <15162.41164.618712.841415@rls.cx>
p4raw-id: //depot/perl@10999
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -233,6 +233,7 @@ Perl_do_openn(pTHX_ GV *gv, register char *name, I32 len, int as_raw, } IoTYPE(io) = *type; if ((*type == IoTYPE_RDWR) && /* scary */ + (*(type+1) == IoTYPE_RDONLY || *(type+1) == IoTYPE_WRONLY) && ((!num_svs || (tend > type+1 && tend[-1] != IoTYPE_PIPE)))) { mode[1] = *type++; writing = 1; |