Fix newer Perl INC issue

gfx · Apr 5, 2017 · 5146576 · 5146576
1 parent 9736f57
commit 5146576
Show file tree

Hide file tree

Showing 22 changed files with 22 additions and 22 deletions.
diff --git a/t/pp01_refs.t b/t/pp01_refs.t
@@ -6,5 +6,5 @@ use strict;
 $Data::Util::TESTING_PERL_ONLY = $Data::Util::TESTING_PERL_ONLY = 1;
 my $file = $0;
 $file =~ s/pp//;
-do $file;
+do "./$file";
 die $@ if $@;
diff --git a/t/pp02_inst.t b/t/pp02_inst.t
@@ -6,5 +6,5 @@ use strict;
 $Data::Util::TESTING_PERL_ONLY = $Data::Util::TESTING_PERL_ONLY = 1;
 my $file = $0;
 $file =~ s/pp//;
-do $file;
+do "./$file";
 die $@ if $@;
diff --git a/t/pp03_gen.t b/t/pp03_gen.t
@@ -6,5 +6,5 @@ use strict;
 $Data::Util::TESTING_PERL_ONLY = $Data::Util::TESTING_PERL_ONLY = 1;
 my $file = $0;
 $file =~ s/pp//;
-do $file;
+do "./$file";
 die $@ if $@;
diff --git a/t/pp04_overloaded.t b/t/pp04_overloaded.t
@@ -6,5 +6,5 @@ use strict;
 $Data::Util::TESTING_PERL_ONLY = $Data::Util::TESTING_PERL_ONLY = 1;
 my $file = $0;
 $file =~ s/pp//;
-do $file;
+do "./$file";
 die $@ if $@;
diff --git a/t/pp05_get_stash.t b/t/pp05_get_stash.t
@@ -6,5 +6,5 @@ use strict;
 $Data::Util::TESTING_PERL_ONLY = $Data::Util::TESTING_PERL_ONLY = 1;
 my $file = $0;
 $file =~ s/pp//;
-do $file;
+do "./$file";
 die $@ if $@;
diff --git a/t/pp06_subroutine.t b/t/pp06_subroutine.t
@@ -6,5 +6,5 @@ use strict;
 $Data::Util::TESTING_PERL_ONLY = $Data::Util::TESTING_PERL_ONLY = 1;
 my $file = $0;
 $file =~ s/pp//;
-do $file;
+do "./$file";
 die $@ if $@;
diff --git a/t/pp08_mgvars.t b/t/pp08_mgvars.t
@@ -6,5 +6,5 @@ use strict;
 $Data::Util::TESTING_PERL_ONLY = $Data::Util::TESTING_PERL_ONLY = 1;
 my $file = $0;
 $file =~ s/pp//;
-do $file;
+do "./$file";
 die $@ if $@;
diff --git a/t/pp10_neat.t b/t/pp10_neat.t
@@ -6,5 +6,5 @@ use strict;
 $Data::Util::TESTING_PERL_ONLY = $Data::Util::TESTING_PERL_ONLY = 1;
 my $file = $0;
 $file =~ s/pp//;
-do $file;
+do "./$file";
 die $@ if $@;
diff --git a/t/pp11_fail_handler.t b/t/pp11_fail_handler.t
@@ -6,5 +6,5 @@ use strict;
 $Data::Util::TESTING_PERL_ONLY = $Data::Util::TESTING_PERL_ONLY = 1;
 my $file = $0;
 $file =~ s/pp//;
-do $file;
+do "./$file";
 die $@ if $@;
diff --git a/t/pp12_in_attr_handler.t b/t/pp12_in_attr_handler.t
@@ -6,5 +6,5 @@ use strict;
 $Data::Util::TESTING_PERL_ONLY = $Data::Util::TESTING_PERL_ONLY = 1;
 my $file = $0;
 $file =~ s/pp//;
-do $file;
+do "./$file";
 die $@ if $@;
diff --git a/t/pp13_optlist.t b/t/pp13_optlist.t
@@ -6,5 +6,5 @@ use strict;
 $Data::Util::TESTING_PERL_ONLY = $Data::Util::TESTING_PERL_ONLY = 1;
 my $file = $0;
 $file =~ s/pp//;
-do $file;
+do "./$file";
 die $@ if $@;
diff --git a/t/pp14_uninst_subr.t b/t/pp14_uninst_subr.t
@@ -6,5 +6,5 @@ use strict;
 $Data::Util::TESTING_PERL_ONLY = $Data::Util::TESTING_PERL_ONLY = 1;
 my $file = $0;
 $file =~ s/pp//;
-do $file;
+do "./$file";
 die $@ if $@;
diff --git a/t/pp15_curry.t b/t/pp15_curry.t
@@ -6,5 +6,5 @@ use strict;
 $Data::Util::TESTING_PERL_ONLY = $Data::Util::TESTING_PERL_ONLY = 1;
 my $file = $0;
 $file =~ s/pp//;
-do $file;
+do "./$file";
 die $@ if $@;
diff --git a/t/pp16_modify.t b/t/pp16_modify.t
@@ -6,5 +6,5 @@ use strict;
 $Data::Util::TESTING_PERL_ONLY = $Data::Util::TESTING_PERL_ONLY = 1;
 my $file = $0;
 $file =~ s/pp//;
-do $file;
+do "./$file";
 die $@ if $@;
diff --git a/t/pp17_nsclean.t b/t/pp17_nsclean.t
@@ -6,5 +6,5 @@ use strict;
 $Data::Util::TESTING_PERL_ONLY = $Data::Util::TESTING_PERL_ONLY = 1;
 my $file = $0;
 $file =~ s/pp//;
-do $file;
+do "./$file";
 die $@ if $@;
diff --git a/t/pp18_is_value.t b/t/pp18_is_value.t
@@ -6,5 +6,5 @@ use strict;
 $Data::Util::TESTING_PERL_ONLY = $Data::Util::TESTING_PERL_ONLY = 1;
 my $file = $0;
 $file =~ s/pp//;
-do $file;
+do "./$file";
 die $@ if $@;
diff --git a/t/pp19_multiple_modifiers.t b/t/pp19_multiple_modifiers.t
@@ -6,5 +6,5 @@ use strict;
 $Data::Util::TESTING_PERL_ONLY = $Data::Util::TESTING_PERL_ONLY = 1;
 my $file = $0;
 $file =~ s/pp//;
-do $file;
+do "./$file";
 die $@ if $@;
diff --git a/t/pp20_lexical_sub.t b/t/pp20_lexical_sub.t
@@ -6,5 +6,5 @@ use strict;
 $Data::Util::TESTING_PERL_ONLY = $Data::Util::TESTING_PERL_ONLY = 1;
 my $file = $0;
 $file =~ s/pp//;
-do $file;
+do "./$file";
 die $@ if $@;
diff --git a/t/pp21_get_code_ref.t b/t/pp21_get_code_ref.t
@@ -6,5 +6,5 @@ use strict;
 $Data::Util::TESTING_PERL_ONLY = $Data::Util::TESTING_PERL_ONLY = 1;
 my $file = $0;
 $file =~ s/pp//;
-do $file;
+do "./$file";
 die $@ if $@;
diff --git a/t/pp22_install2.t b/t/pp22_install2.t
@@ -6,5 +6,5 @@ use strict;
 $Data::Util::TESTING_PERL_ONLY = $Data::Util::TESTING_PERL_ONLY = 1;
 my $file = $0;
 $file =~ s/pp//;
-do $file;
+do "./$file";
 die $@ if $@;
diff --git a/t/pp23_largeargs.t b/t/pp23_largeargs.t
@@ -6,5 +6,5 @@ use strict;
 $Data::Util::TESTING_PERL_ONLY = $Data::Util::TESTING_PERL_ONLY = 1;
 my $file = $0;
 $file =~ s/pp//;
-do $file;
+do "./$file";
 die $@ if $@;
diff --git a/t/pp24_eval_in_modifiers.t b/t/pp24_eval_in_modifiers.t
@@ -6,5 +6,5 @@ use strict;
 $Data::Util::TESTING_PERL_ONLY = $Data::Util::TESTING_PERL_ONLY = 1;
 my $file = $0;
 $file =~ s/pp//;
-do $file;
+do "./$file";
 die $@ if $@;