Un-TODO tests avec change #30228

p4raw-link: @30228 on //depot/perl: ebca63ee5f1955c84450c209cba0b49a23ad2f27

p4raw-id: //depot/perl@30229

diff --git a/t/comp/parser.t b/t/comp/parser.t
index 95be22d..0d2f4d6 100644 (file)
--- a/t/comp/parser.t
+++ b/t/comp/parser.t
@@ -285,8 +285,6 @@ sub check ($$$) {
     my ($file, $line, $name) =  @_;
     my (undef, $got_file, $got_line) = caller;
     like ($got_file, $file, "file of $name");
     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");
 }
 
     is ($got_line, $line, "line of $name");
 }