t/op/taint.t: Add test

1 files changed, 17 insertions, 1 deletions

diff --git a/t/op/taint.t b/t/op/taint.t
index adb6907a45..ca67024d1c 100644
--- a/t/op/taint.t
+++ b/t/op/taint.t
@@ -17,7 +17,7 @@ BEGIN {
 use strict;
 use Config;
 
-plan tests => 1041;
+plan tests => 1042;
 
 $| = 1;
 
@@ -2380,6 +2380,22 @@ end
     eval { "A" =~ /\p{$prop}/};
     like($@, qr/Insecure user-defined property "IsA" in regex/,
 	    "user-defined property: tainted case");
+
+}
+
+{
+
+    local $ENV{XX} = '\p{IsB}';   # Making it an environment variable taints it
+
+    fresh_perl_like(<<'EOF',
+        BEGIN { $re = qr/$ENV{XX}/; }
+
+        sub IsB { "42" };
+        "B" =~ $re
+EOF
+     qr/Insecure user-defined property \\p\{main::IsB\}/,
+     { switches => [ "-T" ] },
+    "user-defined property; defn not known until runtime, tainted case");
 }
 
 {