18 sub f { my $p=$_[0]; return $p }
23 # Is pos() set inside //g? (bug id 19990615.008)
24 $x = "test string?"; $x =~ s/\w/pos($x)/eg;
25 is($x, "0123 5678910?");
28 $x = "123 56"; $x =~ / /g;
31 local $TODO = "RT #1716: search position reset after 'local' save/restore";