Fix for Coverity perl5 CID 29060: Pointer to local outside scope (RETURN_LOCAL) use_i...

Duplicate the PerlIOBase_pushed call so that the tmode is in scope.

diff --git a/perlio.c b/perlio.c
index 0ae0a43..d4c43d0 100644 (file)
--- a/perlio.c
+++ b/perlio.c
@@ -2905,6 +2905,7 @@ PerlIOStdio_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab
                PerlIOSelf(f, PerlIOStdio)->stdio = stdio;
                /* We never call down so do any pending stuff now */
                PerlIO_flush(PerlIONext(f));
                PerlIOSelf(f, PerlIOStdio)->stdio = stdio;
                /* We never call down so do any pending stuff now */
                PerlIO_flush(PerlIONext(f));

+                return PerlIOBase_pushed(aTHX_ f, mode, arg, tab);

            }
            else {
                return -1;
            }
            else {
                return -1;