Make p_tainted.t find its tests on VMS.

Reported upstream at:

https://rt.cpan.org/Ticket/Display.html?id=50528

diff --git a/cpan/List-Util/t/p_tainted.t b/cpan/List-Util/t/p_tainted.t
index eda5929..6a4cd22 100644 (file)
--- a/cpan/List-Util/t/p_tainted.t
+++ b/cpan/List-Util/t/p_tainted.t
@@ -6,7 +6,7 @@ use File::Spec;
 $List::Util::TESTING_PERL_ONLY = $List::Util::TESTING_PERL_ONLY = 1;
 
 (my $f = __FILE__) =~ s/p_//;
-my $filename = $^O eq 'MSWin32'
+my $filename = ($^O eq 'MSWin32' || $^O eq 'VMS')
              ? File::Spec->rel2abs(File::Spec->catfile(".", $f))
              : File::Spec->catfile(".", $f);
 do $filename; die $@ if $@;