1 files changed, 2 insertions, 0 deletions
diff --git a/perlio.c b/perlio.c
index 797b816215..c82da9bc32 100644
--- 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':