pre-likely cleanup

Message-ID: <20051227203939.GC1781@petdance.com> 

Includes a small fix to the changes in tryAMAGICbinW_var() in pp.h.

p4raw-id: //depot/perl@26505

1 files changed, 1 insertions, 2 deletions

diff --git a/pp.c b/pp.c
index cbc20fb6f0..2e9234bf6d 100644
--- a/pp.c
+++ b/pp.c
@@ -378,9 +378,8 @@ PP(pp_prototype)
     CV *cv;
     HV *stash;
     GV *gv;
-    SV *ret;
+    SV *ret = &PL_sv_undef;
 
-    ret = &PL_sv_undef;
     if (SvPOK(TOPs) && SvCUR(TOPs) >= 7) {
 	const char * const s = SvPVX_const(TOPs);
 	if (strnEQ(s, "CORE::", 6)) {