Fix hardcoded "/" in a filepath that causes ext/List/Util/t/p_tainted.t

to fail on VMS.

p4raw-id: //depot/perl@26912

diff --git a/ext/List/Util/t/p_tainted.t b/ext/List/Util/t/p_tainted.t
index 90275fd..4ebdd4e 100644 (file)
--- a/ext/List/Util/t/p_tainted.t
+++ b/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;