diff options
author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-04-07 08:36:26 +0000 |
---|---|---|
committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-04-07 08:36:26 +0000 |
commit | c5af4229019b04c7fa4be99300f8d9883c0bdf73 (patch) | |
tree | d58b891e59188e7951342d5f1d466f56183d66b0 /perlio.c | |
parent | b8a524e96d5b75be96d6a98368b9c29153780cfe (diff) | |
download | perl-c5af4229019b04c7fa4be99300f8d9883c0bdf73.tar.gz |
Allow PerlIOBase_pushed to ignore prefix on mode (e.g. sysopen's "#r")
Else it complains and so crlf layer (say) does not get pushed.
p4raw-id: //depot/perlio@9601
Diffstat (limited to 'perlio.c')
-rw-r--r-- | perlio.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -1470,6 +1470,8 @@ PerlIOBase_pushed(PerlIO *f, const char *mode, SV *arg) l->flags |= PERLIO_F_FASTGETS; if (mode) { + if (*mode == '#' || *mode == 'I') + mode++; switch (*mode++) { case 'r': |