Un-TODO one test in pat.t ($1 kept safe after a /g match)

p4raw-id: //depot/perl@29371

diff --git a/t/op/pat.t b/t/op/pat.t
index 21db20c..f337a58 100755 (executable)
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -4109,7 +4109,7 @@ for my $c ("z", "\0", "!", chr(254), chr(256)) {
     my $v;
     ($v='bar')=~/(\w+)/g;
     $v='foo';
-    iseq("$1",'bar','# TODO $1 is safe after /g - may fail due to specialized config in pp_hot.c')
+    iseq("$1",'bar','$1 is safe after /g - may fail due to specialized config in pp_hot.c')
 }
  
 # Test counter is at bottom of file. Put new tests above here.