Patrick Williams | c124f4f | 2015-09-15 14:41:29 -0500 | [diff] [blame] | 1 | From a7f6d453e60256d329469a75b642cca854cebea1 Mon Sep 17 00:00:00 2001 |
| 2 | From: Brendan O'Dea <bod@debian.org> |
| 3 | Date: Tue, 8 Mar 2005 19:30:38 +1100 |
| 4 | Subject: Set location of libnet.cfg to /etc/perl/Net as /usr may not be |
| 5 | writable. |
| 6 | |
| 7 | Patch-Name: debian/libnet_config_path.diff |
| 8 | --- |
| 9 | cpan/libnet/lib/Net/Config.pm | 7 +++---- |
| 10 | 1 file changed, 3 insertions(+), 4 deletions(-) |
| 11 | |
| 12 | diff --git a/cpan/libnet/lib/Net/Config.pm b/cpan/libnet/lib/Net/Config.pm |
| 13 | index 953a826..61ba12a 100644 |
| 14 | --- a/cpan/libnet/lib/Net/Config.pm |
| 15 | +++ b/cpan/libnet/lib/Net/Config.pm |
| 16 | @@ -68,9 +68,8 @@ my %nc = ( |
| 17 | TRY_INTERNET_CONFIG |
| 18 | } |
| 19 | |
| 20 | -my $file = __FILE__; |
| 21 | +my $file = '/etc/perl/Net/libnet.cfg'; |
| 22 | my $ref; |
| 23 | -$file =~ s/Config.pm/libnet.cfg/; |
| 24 | if (-f $file) { |
| 25 | $ref = eval { local $SIG{__DIE__}; do $file }; |
| 26 | if (ref($ref) eq 'HASH') { |
| 27 | @@ -142,8 +141,8 @@ Net::Config - Local configuration data for libnet |
| 28 | C<Net::Config> holds configuration data for the modules in the libnet |
| 29 | distribution. During installation you will be asked for these values. |
| 30 | |
| 31 | -The configuration data is held globally in a file in the perl installation |
| 32 | -tree, but a user may override any of these values by providing their own. This |
| 33 | +The configuration data is held globally in C</etc/perl/Net/libnet.cfg>, |
| 34 | +but a user may override any of these values by providing their own. This |
| 35 | can be done by having a C<.libnetrc> file in their home directory. This file |
| 36 | should return a reference to a HASH containing the keys described below. |
| 37 | For example |