From 9f75cc58fe629e987cf6dc51251c428b28753131 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Wed, 4 Jun 2003 18:53:48 +0000 Subject: Prevent a potential null pointer dereference. Noticed by Ryan Koga in Message-ID: p4raw-id: //depot/perl@19688 --- perlio.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'perlio.c') diff --git a/perlio.c b/perlio.c index dcd2f668a5..91db1e1856 100644 --- a/perlio.c +++ b/perlio.c @@ -3323,10 +3323,11 @@ PerlIO_exportFILE(PerlIO * f, const char *mode) stdio = PerlSIO_fdopen(PerlIO_fileno(f), mode); if (stdio) { PerlIOl *l = *f; + PerlIO *f2; /* De-link any lower layers so new :stdio sticks */ *f = NULL; - if ((f = PerlIO_push(aTHX_ f, &PerlIO_stdio, buf, Nullsv))) { - PerlIOStdio *s = PerlIOSelf(f, PerlIOStdio); + if ((f2 = PerlIO_push(aTHX_ f, &PerlIO_stdio, buf, Nullsv))) { + PerlIOStdio *s = PerlIOSelf((f = f2), PerlIOStdio); s->stdio = stdio; /* Link previous lower layers under new one */ *PerlIONext(f) = l; -- cgit v1.2.1