1 files changed, 3 insertions, 1 deletions
diff --git a/perl.c b/perl.c
index 7a41d2bf7d..046bb60c57 100644
--- a/perl.c
+++ b/perl.c
@@ -128,7 +128,7 @@ setuid perl scripts securely.\n");
 #ifdef TAINT
 #ifndef DOSUID
     if (uid == euid && gid == egid)
-	taintanyway == TRUE;		/* running taintperl explicitly */
+	taintanyway = TRUE;		/* running taintperl explicitly */
 #endif
 #endif
     (void)sprintf(index(rcsid,'#'), "%d\n", PATCHLEVEL);
@@ -1168,6 +1168,8 @@ int *arglast;
 	    eval_root = myroot;
 	else if (in_eval != 1 && myroot != last_root)
 	    cmd_free(myroot);
+	    if (eval_root == myroot)
+		eval_root = Nullcmd;
     }
 
     perldb = oldperldb;