}
void
-gv_fullname(sv, gv, prefix)
+gv_fullname3(sv, gv, prefix)
SV *sv;
GV *gv;
char *prefix;
}
void
-gv_efullname(sv, gv, prefix)
+gv_efullname3(sv, gv, prefix)
SV *sv;
GV *gv;
char *prefix;
GV *egv = GvEGV(gv);
if (!egv)
egv = gv;
- gv_fullname(sv, egv, prefix);
+ gv_fullname3(sv, egv, prefix);
+}
+
+/* XXX compatibility with versions <= 5.003. */
+void
+gv_fullname(sv,gv)
+SV *sv;
+GV *gv;
+{
+ gv_fullname3(sv, gv, sv == (SV*)gv ? "*" : "");
+}
+
+/* XXX compatibility with versions <= 5.003. */
+void
+gv_efullname(sv,gv)
+SV *sv;
+GV *gv;
+{
+ gv_efullname3(sv, gv, sv == (SV*)gv ? "*" : "");
}
IO *
/* FALL THROUGH */
case SVt_PVHV:
case SVt_PVAV:
- die("Not a subroutine reference in %%OVERLOAD");
+ die("Not a subroutine reference in overload table");
return FALSE;
case SVt_PVCV:
cv = (CV*)sv;