From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Tue, 9 Jul 2002 16:59:29 +0000 (+0000)
Subject: Fix open(FH,"Via(Foo)","NonExistant") and other cases when
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=602c3c4b6f5b561b590efa06fdef6c029706eab5;p=p5sagit%2Fp5-mst-13.2.git

Fix open(FH,"Via(Foo)","NonExistant") and other cases when
:stdio as lower layer fails.

p4raw-id: //depot/perlio@17446
---

diff --git a/perlio.c b/perlio.c
index 925920d..3cce842 100644
--- a/perlio.c
+++ b/perlio.c
@@ -2564,8 +2564,11 @@ PerlIOStdio_open(pTHX_ PerlIO_funcs *self, PerlIO_list_t *layers,
 			s->stdio = stdio;
 			PerlIOUnix_refcnt_inc(fileno(s->stdio));
 		    }
+		    return f;
+		}
+		else {
+		    return NULL;
 		}
-		return f;
 	    }
 	}
 	if (fd >= 0) {
@@ -4637,3 +4640,4 @@ PerlIO_sprintf(char *s, int n, const char *fmt, ...)
 
 
 
+