From b8ab15d6bed9e9155b2524f9c57731f2780872fa Mon Sep 17 00:00:00 2001
From: Niko Tyni <ntyni@debian.org>
Date: Mon, 6 Jul 2009 22:17:53 +0300
Subject: Save local versions of CPANPLUS::Config::System into /etc/perl.

This is a configuration file and needs to go in /etc by policy.
Besides, /usr may not even be writable.

This mirrors the Debian setup of CPAN.pm in debian/cpan_config_path.

See #533707.

Patch-Name: debian/cpanplus_config_path.diff
---
 cpan/CPANPLUS/lib/CPANPLUS/Configure.pm           |    1 +
 cpan/CPANPLUS/lib/CPANPLUS/Internals/Constants.pm |    3 +++
 2 files changed, 4 insertions(+)

--- a/lib/CPANPLUS/Configure.pm
+++ b/lib/CPANPLUS/Configure.pm
@@ -280,6 +280,7 @@
 If this package is not C<CPANPLUS::Config::System>, it will
 be saved in your C<.cpanplus> directory, otherwise it will
 be attempted to be saved in the system wide directory.
+(On Debian systems, this system wide directory is /etc/perl.)
 
 If no argument is provided, it will default to your personal
 config.
--- a/lib/CPANPLUS/Internals/Constants.pm
+++ b/lib/CPANPLUS/Internals/Constants.pm
@@ -213,6 +213,9 @@
                                     ) . '.pm';
                                 };
 use constant CONFIG_SYSTEM_FILE  => sub {
+                                    # Debian-specific shortcut
+                                    return '/etc/perl/CPANPLUS/Config/System.pm';
+
                                     require CPANPLUS::Internals;
                                     require File::Basename;
                                     my $dir = File::Basename::dirname(
