From f6ec51f74c8ac3114d6ab404cd0d7ce83d50adc9 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Tue, 11 May 1999 14:08:14 +0000 Subject: avoid creating spurious subroutine stubs on failed subroutine call and other places of sv_2cv() misuse; fixes problems with failed subroutine calls "hiding" later attempts to lookup methods in base classes p4raw-id: //depot/perl@3388 --- sv.c | 3 +++ 1 file changed, 3 insertions(+) (limited to 'sv.c') diff --git a/sv.c b/sv.c index 87c3755d41..d616b8e42d 100644 --- a/sv.c +++ b/sv.c @@ -4214,6 +4214,9 @@ sv_2cv(SV *sv, HV **st, GV **gvp, I32 lref) ENTER; tmpsv = NEWSV(704,0); gv_efullname3(tmpsv, gv, Nullch); + /* XXX this is probably not what they think they're getting. + * It has the same effect as "sub name;", i.e. just a forward + * declaration! */ newSUB(start_subparse(FALSE, 0), newSVOP(OP_CONST, 0, tmpsv), Nullop, -- cgit v1.2.1