[perl #32039] Chained goto &sub drops data too early.

[p5sagit/p5-mst-13.2.git] / t / op / mydef.t

diff --git a/t/op/mydef.t b/t/op/mydef.t
index 485f843..f089c31 100644 (file)
--- a/t/op/mydef.t
+++ b/t/op/mydef.t
@@ -164,7 +164,7 @@ $_ = "global";
 {
     my $_ = "abc";
     my $x = reverse;
-    ok( $x eq "cba", 'reverse without arguments picks up $_ # TODO' );
+    ok( $x eq "cba", 'reverse without arguments picks up $_' );
 }
 
 {