$FreeBSD: ports/lang/perl5/files/patch-mg.c,v 1.2 2002/11/01 14:43:46 tobez Exp $

--- mg.c.orig	Tue Oct 29 16:24:52 2002
+++ mg.c	Tue Oct 29 16:32:26 2002
@@ -562,6 +562,8 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg)
 		(void)SvOK_off(sv);
 	    else if (PL_in_eval)
  		sv_setiv(sv, PL_in_eval & ~(EVAL_INREQUIRE));
+	    else
+		sv_setiv(sv, 0);
 	}
 	break;
     case '\024':		/* ^T */