From: Stas Bekman <stas@stason.org>
Date: Tue, 11 Dec 2001 16:17:55 +0000 (+0800)
Subject: [patch perlio.c] test for NULL before derefencing
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=53f1b6d26c38bb28847eb6095c762cac3e79dd5a;p=p5sagit%2Fp5-mst-13.2.git

[patch perlio.c] test for NULL before derefencing
Message-ID: <3C15C133.8@stason.org>

p4raw-id: //depot/perl@13619
---

diff --git a/perlio.c b/perlio.c
index bdbde16..1fab7b7 100644
--- a/perlio.c
+++ b/perlio.c
@@ -968,7 +968,7 @@ PerlIO_push(pTHX_ PerlIO *f, PerlIO_funcs *tab, const char *mode, SV *arg)
 {
     PerlIOl *l = NULL;
     Newc('L',l,tab->size,char,PerlIOl);
-    if (l) {
+    if (l && f) {
 	Zero(l, tab->size, char);
 	l->next = *f;
 	l->tab = tab;
@@ -1052,7 +1052,7 @@ int
 PerlIO_apply_layers(pTHX_ PerlIO *f, const char *mode, const char *names)
 {
     int code = 0;
-    if (names) {
+    if (f && names) {
 	PerlIO_list_t *layers = PerlIO_list_alloc(aTHX);
 	code = PerlIO_parse_layers(aTHX_ layers, names);
 	if (code == 0) {