Regression tests for proxy subroutine glob assignment.

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

diff --git a/t/op/pat.t b/t/op/pat.t
index dff0b65..ced35e3 100755 (executable)
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -3420,7 +3420,7 @@ ok(("foba  ba$s" =~ qr/(foo|BaSS|bar)/i)
     $s = $1;
     $s = $2;
     ok($s eq 'cd',
-       "# TODO assigning to original string should not corrupt match vars");
+       "# assigning to original string should not corrupt match vars");
 }
 
 # last test 1195