From: Steve Peters <steve@fisharerojo.org>
Date: Thu, 19 Jan 2006 02:58:37 +0000 (+0000)
Subject: Fix hardcoded "/" in a filepath that causes ext/List/Util/t/p_tainted.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=455baebd594d9ca8de32e987b02f2a360da89648;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;