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