From 7fa7b0adb97886e2a8e02b65c9e10f9872651150 Mon Sep 17 00:00:00 2001
From: "Craig A. Berry" <craigberry@mac.com>
Date: Thu, 15 Oct 2009 10:59:09 -0500
Subject: [PATCH 1/1] Make p_tainted.t find its tests on VMS.

Reported upstream at:

https://rt.cpan.org/Ticket/Display.html?id=50528
---
 cpan/List-Util/t/p_tainted.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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