In metaconfig.git, the branch master has been updated <http://perl5.git.perl.org/metaconfig.git/commitdiff/ef5c19162ce2555ea2fa80432adb0e182ca150e2?hp=8dce5ac72a4a9cfba90f538c8864a6507b75e42b>
- Log ----------------------------------------------------------------- commit ef5c19162ce2555ea2fa80432adb0e182ca150e2 Author: H.Merijn Brand - Tux <[email protected]> Date: Sat Oct 22 14:05:33 2016 +0200 Add option to exclude '.' from @INC ----------------------------------------------------------------------- Summary of changes: U/perl/defaultincdot.U | 41 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 41 insertions(+) create mode 100644 U/perl/defaultincdot.U diff --git a/U/perl/defaultincdot.U b/U/perl/defaultincdot.U new file mode 100644 index 0000000..6f5a971 --- /dev/null +++ b/U/perl/defaultincdot.U @@ -0,0 +1,41 @@ +?RCS: $Id$ +?RCS: +?RCS: Copyright (c) 2016 H.Merijn Brand & Todd Rinaldo +?RCS: +?RCS: You may distribute under the terms of either the GNU General Public +?RCS: License or the Artistic License, as specified in the README file. +?RCS: +?MAKE:default_inc_excludes_dot: Myread cat +?MAKE: -pick add $@ %< +?S:default_inc_excludes_dot: +?S: When defined, remove the legacy '.' from @INC +?S:. +?C:DEFAULT_INC_EXCLUDES_DOT: +?C: This symbol, if defined, removes the legacy default behavior of +?C: including '.' at the end of @INC. +?C:. +?H:#$default_inc_excludes_dot DEFAULT_INC_EXCLUDES_DOT /**/ +?H:. +?D:default_inc_excludes_dot='' +: Include . in @INC +$cat <<EOM + +Historically Perl has provided a final fallback of the current working +directory '.' when searching for a library. This, however, can lead to +problems when a Perl program which loads optional modules is called from +a shared directory. This can lead to executing unexpected code. + +EOM + +case "$default_inc_excludes_dot" in + $define|true|[yY]*) dflt="n" ;; + *) dflt='y' ;; +esac + +rp='Provide '.' in @INC by default? ' +. ./myread +case "$ans" in + [nN]*|define) default_inc_excludes_dot="$define" ;; + *) default_inc_excludes_dot="$undef" ;; +esac + -- perl5 metaconfig repository
