p4raw-id: //depot/perl@26437
switch (SvTYPE(sv)) {
/* This is overwhelming the most common case: */
case SVt_PVGV:
- if (!(cv = GvCVu((GV*)sv)))
+ if (!(cv = GvCVu((GV*)sv))) {
+ HV *stash;
cv = sv_2cv(sv, &stash, &gv, 0);
+ }
if (!cv) {
ENTER;
SAVETMPS;