diff options
| author | Craig A. Berry <craigberry@mac.com> | 2009-10-15 10:59:09 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2009-10-15 10:59:09 -0500 |
| commit | 7fa7b0adb97886e2a8e02b65c9e10f9872651150 (patch) | |
| tree | a2f7f3b3f378d44e0a39c1c5dbaeeec7b5b61af2 /cpan/List-Util | |
| parent | 74c2567ea04065ba1e35ab395fe543042852be14 (diff) | |
| download | perl-7fa7b0adb97886e2a8e02b65c9e10f9872651150.tar.gz | |
Make p_tainted.t find its tests on VMS.
Reported upstream at:
https://rt.cpan.org/Ticket/Display.html?id=50528
Diffstat (limited to 'cpan/List-Util')
| -rw-r--r-- | cpan/List-Util/t/p_tainted.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cpan/List-Util/t/p_tainted.t b/cpan/List-Util/t/p_tainted.t index eda5929112..6a4cd22242 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 $@; |