12 ? (skip_all => "Taint::Util required for taint tests")
16 use re::engine::Plugin (
20 ok(tainted($str) => 'matched string tainted');
23 my $two = $str; untaint($two);
32 return $one if $p == 1;
33 return $two if $p == 2;
45 if ($str =~ /pattern/) {
46 cmp_ok $1, 'eq', $str;
47 ok(tainted($1) => '$1 is tainted');
49 cmp_ok $2, 'eq', $str;
50 ok(!tainted($2) => '$2 is untainted');