diff options
author | Tony Cook <tony@develop-help.com> | 2017-03-07 14:50:11 +1100 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2017-03-14 21:57:18 +1100 |
commit | 2a0461a3212270dfe46563589edb8c721911bf57 (patch) | |
tree | e2d16645b8a16a2175dc553b09c902262e97ff28 /t | |
parent | 12e837793e279bd6e705e920b9492f60dee90dfe (diff) | |
download | perl-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_ctl | 13 |
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. |