[prev in list] [next in list] [prev in thread] [next in thread] 

List:       perl5-changes
Subject:    [metaconfig.git]  branch master, updated. ef5c19162ce2555ea2fa80432adb0e182ca150e2
From:       "H.Merijn Brand" <h.m.brand () xs4all ! nl>
Date:       2016-10-22 12:05:38
Message-ID: E1bxv3S-0001To-GC () camel-001 ! ams6 ! corp ! booking ! com
[Download RAW message or body]

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 <h.m.brand@xs4all.nl>
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


[prev in list] [next in list] [prev in thread] [next in thread]