From: Craig A. Berry <craigberry@mac.com>
Date: Thu, 15 Oct 2009 15:59:09 +0000 (-0500)
Subject: Make p_tainted.t find its tests on VMS.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7fa7b0adb97886e2a8e02b65c9e10f9872651150;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 $@;