This TODO test seems to pass now.

p4raw-id: //depot/perl@22075

diff --git a/t/op/write.t b/t/op/write.t
index 2e90b39..1b7fc04 100755 (executable)
--- a/t/op/write.t
+++ b/t/op/write.t
@@ -351,7 +351,7 @@ $= = 10;
        ? "ok $test\n" : "not ok $test # TODO \$- = $- instead of 9\n";
     $test++;
     print $^ ne "Comment_TOP"
-       ? "ok $test\n" : "not ok $test # TODO \$^ = $^ instead of 'STDOUT_TOP'\n";
+       ? "ok $test\n" : "not ok $test\n# \$^ = $^ instead of 'STDOUT_TOP'\n";
     $test++;
     }