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

diff --git a/perlio.c b/perlio.c
index 797b816..c82da9b 100644 (file)
--- a/perlio.c
+++ b/perlio.c
@@ -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':