eval $undef should emit one warning, not three.

Also ensure that eval $undef clears $@ (it did, but only by luck)

p4raw-id: //depot/perl@29193

1 files changed, 0 insertions, 2 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 708f2fa07a..7b91e86c23 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3455,8 +3455,6 @@ PP(pp_entereval)
     }
     sv = POPs;
 
-    if (!SvPV_nolen_const(sv))
-	RETPUSHUNDEF;
     TAINT_PROPER("eval");
 
     ENTER;