diff options
| author | Steve Peters <steve@fisharerojo.org> | 2006-01-19 02:58:37 +0000 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-01-19 02:58:37 +0000 |
| commit | 455baebd594d9ca8de32e987b02f2a360da89648 (patch) | |
| tree | 15778f497f773221200feb4956778e11ad4c2a68 /ext/List | |
| parent | 290ae2ddc37d23442f71f6bbb43d3a665ab6e766 (diff) | |
| download | perl-455baebd594d9ca8de32e987b02f2a360da89648.tar.gz | |
Fix hardcoded "/" in a filepath that causes ext/List/Util/t/p_tainted.t
to fail on VMS.
p4raw-id: //depot/perl@26912
Diffstat (limited to 'ext/List')
| -rw-r--r-- | ext/List/Util/t/p_tainted.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/ext/List/Util/t/p_tainted.t b/ext/List/Util/t/p_tainted.t index 90275fdad4..4ebdd4e39d 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; |