From 53f1b6d26c38bb28847eb6095c762cac3e79dd5a Mon Sep 17 00:00:00 2001 From: Stas Bekman Date: Wed, 12 Dec 2001 00:17:55 +0800 Subject: [PATCH] [patch perlio.c] test for NULL before derefencing Message-ID: <3C15C133.8@stason.org> p4raw-id: //depot/perl@13619 --- perlio.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) { -- 2.7.4