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/libnetcfg.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/libnetcfg.PL')
-rw-r--r-- | utils/libnetcfg.PL | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/utils/libnetcfg.PL b/utils/libnetcfg.PL index 59a2de87c8..26d2f995a9 100644 --- a/utils/libnetcfg.PL +++ b/utils/libnetcfg.PL @@ -97,6 +97,7 @@ Jarkko Hietaniemi, conversion into libnetcfg for inclusion into Perl 5.8. # $Id: Configure,v 1.8 1997/03/04 09:22:32 gbarr Exp $ +BEGIN { pop @INC if $INC[-1] eq '.' } use strict; use IO::File; use Getopt::Std; |