diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2007-06-14 18:32:49 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-06-15 11:17:50 +0000 |
| commit | cef6ea9dde586d23f429802e75d22875450d6b68 (patch) | |
| tree | 6108efb40b0e9fd59200d485887f63a2383dbcbb /sv.c | |
| parent | d05d9be5bb960a2dda35f9c10256ae0e8caaede8 (diff) | |
| download | perl-cef6ea9dde586d23f429802e75d22875450d6b68.tar.gz | |
miscellanea
Message-ID: <4671FA51.4070001@iki.fi>
p4raw-id: //depot/perl@31388
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -467,7 +467,7 @@ do_clean_named_objs(pTHX_ SV *sv) SvOBJECT(GvSV(sv))) || (GvAV(sv) && SvOBJECT(GvAV(sv))) || (GvHV(sv) && SvOBJECT(GvHV(sv))) || - (GvIO(sv) && SvOBJECT(GvIO(sv))) || + (GvIO(sv) && GvIOp(sv) && SvOBJECT(GvIO(sv))) || /* In certain rare cases GvIOP(sv) can be NULL, which would make SvOBJECT(GvIO(sv)) dereference NULL. */ (GvCV(sv) && SvOBJECT(GvCV(sv))) ) { DEBUG_D((PerlIO_printf(Perl_debug_log, "Cleaning named glob object:\n "), sv_dump(sv))); |