Subject: | [PATCH] Test t/p_tainted.t fails on VMS |
The test listed above fails on VMS due to a hard-coded "/" in a path.
The patch below was applied to bleadperl to fix the problem.
==== //depot/perl/ext/List/Util/t/p_tainted.t#4 -
/home/steve/p4-bleadperl/perl/ext/List/Util/t/p_tainted.t ====
@@ -1,7 +1,10 @@
#!./perl -T
+use File::Spec;
+
# force perl-only version to be tested
$List::Util::TESTING_PERL_ONLY = $List::Util::TESTING_PERL_ONLY = 1;
(my $f = __FILE__) =~ s/p_//;
-do "./$f";
+my $filename = File::Spec->catfile(".", $f);
+do $filename;