Make p_tainted.t find its tests on VMS.
Craig A. Berry [Thu, 15 Oct 2009 15:59:09 +0000 (10:59 -0500)]
Reported upstream at:

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

cpan/List-Util/t/p_tainted.t

index eda5929..6a4cd22 100644 (file)
@@ -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 $@;