diff options
| author | Dominic Dunlop <domo@computer.org> | 2006-02-20 14:49:00 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-02-20 17:59:42 +0000 |
| commit | 5316d14db4aade2e88cbb15cc065195245c0ec51 (patch) | |
| tree | db7354b218da1ea68ab67197330be691cfa7fad8 /t | |
| parent | bb17208353b2f15e0bf22099038f9ea336d6de2a (diff) | |
| download | perl-5316d14db4aade2e88cbb15cc065195245c0ec51.tar.gz | |
Trouble with $ENV{CDPATH} after change #27236
Message-Id: <6393FA5A-6B84-46E9-A557-DED3BB0AD7EE@mac.com>
p4raw-id: //depot/perl@27248
Diffstat (limited to 't')
| -rw-r--r-- | t/op/utftaint.t | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/t/op/utftaint.t b/t/op/utftaint.t index 1cadc07627..d9614e6e87 100644 --- a/t/op/utftaint.t +++ b/t/op/utftaint.t @@ -143,16 +143,11 @@ for my $ary ([ascii => 'perl'], [latin1 => "\xB6"]) { is(tainted($taint), tainted($arg), "tainted: $encode, downgrade down"); } -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); - } +{ + local @ENV{qw(PATH CDPATH IFS ENV BASH_ENV)} = (undef) x 5; + 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"]}, |