This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Un-TODO one test in pat.t ($1 kept safe after a /g match)
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 24 Nov 2006 09:58:43 +0000 (09:58 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 24 Nov 2006 09:58:43 +0000 (09:58 +0000)
p4raw-id: //depot/perl@29371

t/op/pat.t

index 21db20c..f337a58 100755 (executable)
@@ -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.