]> git.vpit.fr Git - perl/modules/re-engine-Plugin.git/commitdiff
Silence a bogus "Useless use of smart match in void context" warning
authorVincent Pit <vince@profvince.com>
Mon, 4 Apr 2011 16:33:45 +0000 (18:33 +0200)
committerVincent Pit <vince@profvince.com>
Mon, 4 Apr 2011 16:33:45 +0000 (18:33 +0200)
t/60-taint/rx.t

index acaf6df51a420624710d77ed0624f4688e15db78..296e20a197fe0d29ad98d173ec178fde6bca8144 100644 (file)
@@ -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));