perl_call_method() bug fix (corrupt op pointer)

[this patch] fixes a bug in perl_call_method().
If "op" was null before a call and then it was set to point to a local
variable "myop" it mast be restored back to null.

p5p-msgid: 510415F72ECFD111A31700A0C9B3CCDE3098@efx98digmasa.bremer-inc.com

1 files changed, 2 insertions, 0 deletions

diff --git a/perl.c b/perl.c
index 9635b85d3d..4ce6a0a1df 100644
--- a/perl.c
+++ b/perl.c
@@ -1020,6 +1020,8 @@ I32 flags;		/* See G_* flags in cop.h */
     XPUSHs(sv_2mortal(newSVpv(methname,0)));
     PUTBACK;
     pp_method();
+	if(op == &myop)
+		op = Nullop;
     return perl_call_sv(*stack_sp--, flags);
 }