diag.t: Change so a fixed TODO passes

Commit 9c3e8e01b899ff41442e59a8d18532c177d1bdee changed diag.t so that it now
checks if a TODO passes, but it caused the tests to fail.  This causes a TODO
passed instead.

diff --git a/t/porting/diag.t b/t/porting/diag.t
index c8b2d0e..1cdf569 100644 (file)
--- a/t/porting/diag.t
+++ b/t/porting/diag.t
@@ -72,9 +72,10 @@ while (<$diagfh>) {
     $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.