Fix hardcoded "/" in a filepath that causes ext/List/Util/t/p_tainted.t
Steve Peters [Thu, 19 Jan 2006 02:58:37 +0000 (02:58 +0000)]
to fail on VMS.

p4raw-id: //depot/perl@26912

ext/List/Util/t/p_tainted.t

index 90275fd..4ebdd4e 100644 (file)
@@ -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;