diff options
| author | Stas Bekman <stas@stason.org> | 2001-12-12 00:17:55 +0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-11 13:51:21 +0000 |
| commit | 53f1b6d26c38bb28847eb6095c762cac3e79dd5a (patch) | |
| tree | 3c14200f638d331ae665bdfc16b476420cc6eb60 /perlio.c | |
| parent | 4a9f028cfd0d4a71625e6d371deefaa0edd0b19a (diff) | |
| download | perl-53f1b6d26c38bb28847eb6095c762cac3e79dd5a.tar.gz | |
[patch perlio.c] test for NULL before derefencing
Message-ID: <3C15C133.8@stason.org>
p4raw-id: //depot/perl@13619
Diffstat (limited to 'perlio.c')
| -rw-r--r-- | perlio.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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) { |