[perl #122107] ensure that BEGIN blocks with errors don't remain named subs

1 files changed, 0 insertions, 2 deletions

diff --git a/t/op/sub.t b/t/op/sub.t
index 0e4ffda197..1861623c75 100644
--- a/t/op/sub.t
+++ b/t/op/sub.t
@@ -223,11 +223,9 @@ ok !exists $INC{"re.pm"}, 're.pm not loaded yet';
       'Pure-Perl sub clobbering sub whose DESTROY assigns to the glob';
 }
 
-{ local $TODO = "fixed in next commit";
 # [perl #122107] previously this would return
 #  Subroutine BEGIN redefined at (eval 2) line 2.
 fresh_perl_is(<<'EOS', "", { stderr => 1 },
 use strict; use warnings; eval q/use File::{Spec}/; eval q/use File::Spec/;
 EOS
 	       "check special blocks are cleared on error");
-}