summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorTony Cook <tony@develop-help.com>2017-03-07 14:50:11 +1100
committerTony Cook <tony@develop-help.com>2017-03-14 21:57:18 +1100
commit2a0461a3212270dfe46563589edb8c721911bf57 (patch)
treee2d16645b8a16a2175dc553b09c902262e97ff28 /t
parent12e837793e279bd6e705e920b9492f60dee90dfe (diff)
downloadperl-2a0461a3212270dfe46563589edb8c721911bf57.tar.gz
warn if do "somefile" fails when . not default in @INC and somefile exists
the message and warning category may need adjustment
Diffstat (limited to 't')
-rw-r--r--t/lib/warnings/pp_ctl13
1 files changed, 13 insertions, 0 deletions
diff --git a/t/lib/warnings/pp_ctl b/t/lib/warnings/pp_ctl
index 9b3f2982e4..27efbcbda5 100644
--- a/t/lib/warnings/pp_ctl
+++ b/t/lib/warnings/pp_ctl
@@ -251,3 +251,16 @@ EXPECT
use warnings;
eval 'use 5.006; use 5.10.0';
EXPECT
+########
+# SKIP ? !$Config{default_inc_includes_dot}
+# NAME check warning for do with no . in @INC
+open my $fh, ">", "dounknown";
+close $fh;
+do "dounknown";
+do "./dounknown";
+no warnings 'deprecated';
+do "dounknown";
+do "./dounknown";
+unlink "dounknown";
+EXPECT
+do "dounknown" failed, '.' is no longer in @INC at - line 3.