diff options
| author | Steve Hay <steve.m.hay@googlemail.com> | 2019-04-19 17:18:21 +0100 |
|---|---|---|
| committer | Steve Hay <steve.m.hay@googlemail.com> | 2019-04-19 17:19:24 +0100 |
| commit | e8aa9efe194720b3919085f4299f812d661d5d53 (patch) | |
| tree | 810f948531682c12aa0d10fa0fccfd087f855c31 | |
| parent | 4ecbb656780c87f59135b82a1908b54e29e758bc (diff) | |
| download | perl-e8aa9efe194720b3919085f4299f812d661d5d53.tar.gz | |
t/op/taint.t - Skip failing test on Windows
As khw points out on perl #133980, other environment tainting tests are
skipped on Windows (and other platforms) already so it is probably wise
to do likewise for this test too. (It would be nice to understand why the
skip is necessary, though, so leaving ticket open for now...)
| -rw-r--r-- | t/op/taint.t | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/t/op/taint.t b/t/op/taint.t index ca67024d1c..dd9f2edd97 100644 --- a/t/op/taint.t +++ b/t/op/taint.t @@ -2384,18 +2384,22 @@ end } { + SKIP: { + skip "Environment tainting tests skipped", 1 + if $Is_MSWin32 || $Is_NetWare || $Is_VMS || $Is_Dos; - local $ENV{XX} = '\p{IsB}'; # Making it an environment variable taints it + local $ENV{XX} = '\p{IsB}'; # Making it an environment variable taints it - fresh_perl_like(<<'EOF', - BEGIN { $re = qr/$ENV{XX}/; } + fresh_perl_like(<<'EOF', + BEGIN { $re = qr/$ENV{XX}/; } - sub IsB { "42" }; - "B" =~ $re + 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"); + qr/Insecure user-defined property \\p\{main::IsB\}/, + { switches => [ "-T" ] }, + "user-defined property; defn not known until runtime, tainted case"); + } } { |