4 use Test::More tests => 12;
7 scalar($t =~ /abcde/g);
12 is_deeply [ scalar pos($t) ], [ 8 ];
13 is_deeply [ pos($t) ], [ 8 ];
14 is_deeply [ scalar pos($$r) ], [ 8 ];
15 is_deeply [ pos($$r) ], [ 8 ];
19 is_deeply [ scalar pos($t) ], [ undef ];
20 is_deeply [ pos($t) ], [ undef ];
21 is_deeply [ scalar pos($$r) ], [ undef ];
22 is_deeply [ pos($$r) ], [ undef ];