diff options
Diffstat (limited to 't/op/utftaint.t')
| -rw-r--r-- | t/op/utftaint.t | 22 |
1 files changed, 15 insertions, 7 deletions
diff --git a/t/op/utftaint.t b/t/op/utftaint.t index 1294526d2b..1cadc07627 100644 --- a/t/op/utftaint.t +++ b/t/op/utftaint.t @@ -143,10 +143,18 @@ for my $ary ([ascii => 'perl'], [latin1 => "\xB6"]) { is(tainted($taint), tainted($arg), "tainted: $encode, downgrade down"); } -fresh_perl_is('$a = substr $^X, 0, 0; /\x{100}/i; /$a\x{100}/i || print q,ok,', - 'ok', {switches => ["-T", "-l"]}, - "matching a regexp is taint agnostic"); - -fresh_perl_is('$a = substr $^X, 0, 0; /$a\x{100}/i || print q,ok,', - 'ok', {switches => ["-T", "-l"]}, - "therefore swash_init should be taint agnostic"); +SKIP: { + eval { + fresh_perl_is('$a = substr $^X, 0, 0; /\x{100}/i; /$a\x{100}/i || print q,ok,', + 'ok', {switches => ["-T", "-l"]}, + "matching a regexp is taint agnostic"); + }; + if ($@ =~ /^Insecure directory in/) { + chomp $@; + skip ("Can't run taint checks with $@", 2); + } + + fresh_perl_is('$a = substr $^X, 0, 0; /$a\x{100}/i || print q,ok,', + 'ok', {switches => ["-T", "-l"]}, + "therefore swash_init should be taint agnostic"); +} |