add a taint test to catch codegen bug

New test covers something previously done wrong in the experimental
code-generation patch.

1 files changed, 9 insertions, 2 deletions

diff --git a/t/op/taint.t b/t/op/taint.t
index 99a6a59a98..e873ba25b9 100644
--- a/t/op/taint.t
+++ b/t/op/taint.t
@@ -17,7 +17,7 @@ use Config;
 use File::Spec::Functions;
 
 BEGIN { require './test.pl'; }
-plan tests => 339;
+plan tests => 340;
 
 $| = 1;
 
@@ -1470,7 +1470,14 @@ end
     ::is($w, "", "RT 81230");
 }
 
-
+{
+    # Compiling a subroutine inside a tainted expression does not make the
+    # constant folded values tainted.
+    my $x = sub { "x" . "y" };
+    my $y = $ENV{PATH} . $x->(); # Compile $x inside a tainted expression
+    my $z = $x->();
+    ok( ! tainted($z), "Constants folded value not tainted");
+}
 
 # This may bomb out with the alarm signal so keep it last
 SKIP: {