diff --git a/pp_ctl.c b/pp_ctl.c
index 7fadb7010eea..6144a348a386 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2388,7 +2388,7 @@ PP_wrapped(pp_caller, MAXARG, 0)
             mPUSHs(newSVsv(cx->blk_eval.old_namesv));
             PUSHs(&PL_sv_yes);
         }
-        /* eval BLOCK (try blocks have old_namesv == 0) */
+        /* eval BLOCK (eval blocks have old_namesv == 0) */
         else {
             PUSHs(&PL_sv_undef);
             PUSHs(&PL_sv_undef);
diff --git a/t/op/goto.t b/t/op/goto.t
index ab0efe1d82df..f0b74b27d16a 100644
--- a/t/op/goto.t
+++ b/t/op/goto.t
@@ -136,7 +136,7 @@ FORL2: for($y=1; 1;) {
   goto FORL2;
 }
 
-# Does goto work correctly within a try block?
+# Does goto work correctly within a eval block?
 #  (BUG ID 20000313.004) - [perl #2359]
 my $ok = 0;
 eval {
@@ -144,7 +144,7 @@ eval {
   goto LABEL20;
   LABEL20: $ok = 1 if $variable;
 };
-ok($ok, 'works correctly within a try block');
+ok($ok, 'works correctly within a eval block');
 is($@, "", '...and $@ not set');
 
 # And within an eval-string?