1#!./perl 2 3BEGIN { 4 chdir 't' if -d 't'; 5 @INC = '../lib'; 6 require './test.pl'; 7} 8 9plan tests => 6; 10 11$x='banana'; 12$x=~/.a/g; 13is(pos($x), 2); 14 15$x=~/.z/gc; 16is(pos($x), 2); 17 18sub f { my $p=$_[0]; return $p } 19 20$x=~/.a/g; 21is(f(pos($x)), 4); 22 23# Is pos() set inside //g? (bug id 19990615.008) 24$x = "test string?"; $x =~ s/\w/pos($x)/eg; 25is($x, "0123 5678910?"); 26 27$x = "123 56"; $x =~ / /g; 28is(pos($x), 4); 29{ local $x } 30is(pos($x), 4); 31