X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fre-engine-Plugin.git;a=blobdiff_plain;f=t%2F60-taint%2Frx.t;h=296e20a197fe0d29ad98d173ec178fde6bca8144;hp=acaf6df51a420624710d77ed0624f4688e15db78;hb=18e872b42cf358210ac2eb7604b5ad44476ecfce;hpb=1b5d77b5043ce79ba5661949104911c6f773d669 diff --git a/t/60-taint/rx.t b/t/60-taint/rx.t index acaf6df..296e20a 100644 --- a/t/60-taint/rx.t +++ b/t/60-taint/rx.t @@ -27,7 +27,7 @@ use re::engine::Plugin ( ok(tainted($str) => 'matched string tainted'); my $one = $str; - my $two = $str; $two ~~ /(.*)/; $two = $1; + my $two = $str; $two =~ /(.*)/; $two = $1; ok(tainted($one)); ok(!tainted($two));