This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Turn on removal of dot in @INC by default:
authorSawyer X <xsawyerx@cpan.org>
Tue, 14 Mar 2017 08:43:19 +0000 (09:43 +0100)
committerSawyer X <xsawyerx@cpan.org>
Tue, 14 Mar 2017 08:43:19 +0000 (09:43 +0100)
That's it. Dot no longer in @INC.

Configure

index 9d91a81..07dfb7c 100755 (executable)
--- a/Configure
+++ b/Configure
@@ -20638,15 +20638,15 @@ a shared directory. This can lead to executing unexpected code.
 EOM
 
 # When changing to exclude by default:
-#case "$default_inc_excludes_dot" in
-#    $undef|false|[nN]*) dflt="n" ;;
-#    *)                  dflt="y" ;;
-#esac
-# For now:
 case "$default_inc_excludes_dot" in
-    $define|true|[yY]*) dflt="y" ;;
-    *)                  dflt="n" ;;
+    $undef|false|[nN]*) dflt="n" ;;
+    *)                  dflt="y" ;;
 esac
+# To turn exclude off by default:
+#case "$default_inc_excludes_dot" in
+#    $define|true|[yY]*) dflt="y" ;;
+#    *)                  dflt="n" ;;
+#esac
 
 rp='Exclude '.' from @INC by default? '
 . ./myread