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

diff --git a/op.c b/op.c
index aa0b1e7..6cd2f9a 100644 (file)
--- a/op.c
+++ b/op.c
@@ -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;
     }