diff options
Diffstat (limited to 't')
-rw-r--r-- | t/op/sub.t | 2 |
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"); -} |