This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Test rt.perl.org 5900
authorMichael G. Schwern <schwern@pobox.com>
Thu, 9 Dec 2004 22:11:59 +0000 (17:11 -0500)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 10 Dec 2004 10:02:12 +0000 (10:02 +0000)
Message-ID: <20041210031159.GA7629@windhund.schwern.org>

p4raw-id: //depot/perl@23636

t/op/taint.t

index cd445e4..69af31e 100755 (executable)
@@ -17,7 +17,7 @@ use Config;
 use File::Spec::Functions;
 
 BEGIN { require './test.pl'; }
-plan tests => 236;
+plan tests => 238;
 
 
 $| = 1;
@@ -1068,3 +1068,24 @@ TERNARY_CONDITIONALS: {
     test $result eq "The Fabulous Johnny Cash";
     test !tainted( $result );
 }
+
+{
+    # rt.perl.org 5900  $1 remains tainted if...
+    # 1) The regular expression contains a scalar variable AND
+    # 2) The regular expression appears in an elsif clause
+
+    my $foo = "abcdefghi" . $TAINT;
+
+    my $valid_chars = 'a-z';
+    if ( $foo eq '' ) {
+    }
+    elsif ( $foo =~ /([$valid_chars]+)/o ) {
+        test not tainted $1;
+    }
+
+    if ( $foo eq '' ) {
+    }
+    elsif ( my @bar = $foo =~ /([$valid_chars]+)/o ) {
+        test not any_tainted @bar;
+    }
+}