perl 5.002beta1h patch: Configure

[p5sagit/p5-mst-13.2.git] / gv.c

diff --git a/gv.c b/gv.c
index f4d03d2..36b7f70 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -225,7 +225,7 @@ char* name;
        *nsplit = '\0';
        if (strEQ(origname,"SUPER")) {
            /* Degenerate case ->SUPER::method should really lookup in original stash */
-           SV *tmpstr = sv_2mortal(newSVpv(HvNAME(stash),0));
+           SV *tmpstr = sv_2mortal(newSVpv(HvNAME(curcop->cop_stash),0));
            sv_catpvn(tmpstr, "::SUPER", 7);
            stash = gv_stashpv(SvPV(tmpstr,na),TRUE);
            *nsplit = ch;