diff options
author | Tony Cook <tony@develop-help.com> | 2016-06-21 10:02:02 +1000 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2016-07-26 15:36:31 +1000 |
commit | cee96d52c39b1e7b36e1c62d38bcd8d86e9a41ab (patch) | |
tree | 8aacc831b1f62ac288475b45f11396f1bbe16442 /utils/perlivp.PL | |
parent | 1a6796835b1fd6248863ae596147974216e940b8 (diff) | |
download | perl-cee96d52c39b1e7b36e1c62d38bcd8d86e9a41ab.tar.gz |
(perl #127834) remove . from the end of @INC if complex modules are loaded
While currently Encode and Storable are know to attempt to load modules
not included in the core, updates to other modules may lead to those
also attempting to load new modules, so be safe and remove . for those
as well.
Diffstat (limited to 'utils/perlivp.PL')
-rw-r--r-- | utils/perlivp.PL | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/utils/perlivp.PL b/utils/perlivp.PL index c2f0a11f15..e5229133f4 100644 --- a/utils/perlivp.PL +++ b/utils/perlivp.PL @@ -39,6 +39,8 @@ print OUT "\n# perlivp $^V\n"; print OUT <<'!NO!SUBS!'; +BEGIN { pop @INC if $INC[-1] eq '.' } + sub usage { warn "@_\n" if @_; print << " EOUSAGE"; |