This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
diag.t: Change so a fixed TODO passes
[perl5.git] / t / porting / diag.t
index c8b2d0e..1cdf569 100644 (file)
@@ -72,9 +72,10 @@ while (<$diagfh>) {
     $cur_entry = $1;
 
     if (exists $entries{$cur_entry}) {
     $cur_entry = $1;
 
     if (exists $entries{$cur_entry}) {
-        fail($cur_entry);
-        diag("   Remove the TODO entry \"$cur_entry\",\n"
-           . "   from $0 as it is already in $pod near line $.");
+        TODO: {
+            local $::TODO = "Remove the TODO entry \"$cur_entry\" from DATA as it is already in $pod near line $.";
+            ok($cur_entry);
+        }
     }
     # Make sure to init this here, so an actual entry in perldiag
     # overwrites one in DATA.
     }
     # Make sure to init this here, so an actual entry in perldiag
     # overwrites one in DATA.