diff options
| author | Benjamin Sugars <bsugars@canoe.ca> | 2001-04-16 09:23:59 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-17 11:52:17 +0000 |
| commit | 445266f0938267c411534829fc317a7638dc4908 (patch) | |
| tree | 6eff7bdebbdd1180c42d40a29552dcc81b366dd9 /op.c | |
| parent | 6eb630b73347b42c0fa5d74c89e91392e903f094 (diff) | |
| download | perl-445266f0938267c411534829fc317a7638dc4908.tar.gz | |
Fix core dump from undef %File::Glob::
Message-ID: <Pine.LNX.4.21.0104161313160.1676-100000@marmot.rim.canoe.ca>
p4raw-id: //depot/perl@9721
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -5870,6 +5870,7 @@ Perl_ck_glob(pTHX_ OP *o) gv = gv_fetchpv("CORE::GLOBAL::glob", FALSE, SVt_PVCV); glob_gv = gv_fetchpv("File::Glob::csh_glob", FALSE, SVt_PVCV); GvCV(gv) = GvCV(glob_gv); + SvREFCNT_inc((SV*)GvCV(gv)); GvIMPORTED_CV_on(gv); LEAVE; } |