sv_catpv(sv,name);
sv_catpvn(sv,"::", 2);
}
- if (((unsigned int)*GvNAME(gv)) <= 26) { /* handle $^FOO */
- Perl_sv_catpvf(aTHX_ sv,"^%c", *GvNAME(gv) + 'A' - 1);
- sv_catpvn(sv,GvNAME(gv)+1,GvNAMELEN(gv)-1);
- }
- else
- sv_catpvn(sv,GvNAME(gv),GvNAMELEN(gv));
-
+ sv_catpvn(sv,GvNAME(gv),GvNAMELEN(gv));
}
void
if (gp->gp_refcnt == 0) {
if (ckWARN_d(WARN_INTERNAL))
Perl_warner(aTHX_ packWARN(WARN_INTERNAL),
- "Attempt to free unreferenced glob pointers");
+ "Attempt to free unreferenced glob pointers"
+ pTHX__FORMAT pTHX__VALUE);
return;
}
if (gp->gp_cv) {
}
if (gp->gp_sv) SvREFCNT_dec(gp->gp_sv);
- if (gp->gp_sv) SvREFCNT_dec(gp->gp_av);
+ if (gp->gp_av) SvREFCNT_dec(gp->gp_av);
if (gp->gp_hv) {
if (PL_stashcache && HvNAME(gp->gp_hv))
hv_delete(PL_stashcache,