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/h2xs.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/h2xs.PL')
| -rw-r--r-- | utils/h2xs.PL | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/utils/h2xs.PL b/utils/h2xs.PL index 4cb0943742..8fda87b0a7 100644 --- a/utils/h2xs.PL +++ b/utils/h2xs.PL @@ -35,6 +35,8 @@ $Config{startperl} print OUT <<'!NO!SUBS!'; +BEGIN { pop @INC if $INC[-1] eq '.' } + use warnings; =head1 NAME |