This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Un-TODO tests avec change #30228
[perl5.git] / t / comp / parser.t
index 95be22d..0d2f4d6 100644 (file)
@@ -285,8 +285,6 @@ sub check ($$$) {
     my ($file, $line, $name) =  @_;
     my (undef, $got_file, $got_line) = caller;
     like ($got_file, $file, "file of $name");
-    local $TODO;
-    $TODO = "For some wrong reason PL_copline is 1" if $line == 51;
     is ($got_line, $line, "line of $name");
 }