Change 27341 by [EMAIL PROTECTED] on 2006/02/27 14:39:46
Fix op/utftaint.t on Win32 following change #27248
(Don't remove PATH completely because it'll break on Unix if you
have . in the PATH)
Affected files ...
... //depot/perl/t/op/utftaint.t#8 edit
Differences ...
==== //depot/perl/t/op/utftaint.t#8 (text) ====
Index: perl/t/op/utftaint.t
--- perl/t/op/utftaint.t#7~27248~ 2006-02-20 09:59:42.000000000 -0800
+++ perl/t/op/utftaint.t 2006-02-27 06:39:46.000000000 -0800
@@ -144,7 +144,9 @@
}
{
- local @ENV{qw(PATH CDPATH IFS ENV BASH_ENV)} = (undef) x 5;
+ my @keys = qw(CDPATH IFS ENV BASH_ENV);
+ push @keys, qw(PATH) unless $^O eq 'MSWin32';
+ local @[EMAIL PROTECTED] = (undef) x scalar(@keys);
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");
End of Patch.
