diff options
Diffstat (limited to 'meta/recipes-devtools/perl/perl-5.8.8/60_debian_libnet_config_path.patch')
-rw-r--r-- | meta/recipes-devtools/perl/perl-5.8.8/60_debian_libnet_config_path.patch | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/meta/recipes-devtools/perl/perl-5.8.8/60_debian_libnet_config_path.patch b/meta/recipes-devtools/perl/perl-5.8.8/60_debian_libnet_config_path.patch new file mode 100644 index 0000000000..7842ce115c --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.8.8/60_debian_libnet_config_path.patch | |||
@@ -0,0 +1,16 @@ | |||
1 | Set location of libnet.cfg to /etc/perl/Net as /usr may not be writable. | ||
2 | |||
3 | diff -Naur --exclude=debian perl-5.8.8.orig/lib/Net/Config.pm perl-5.8.8/lib/Net/Config.pm | ||
4 | --- perl-5.8.8.orig/lib/Net/Config.pm 2002-03-01 01:04:31.000000000 +1100 | ||
5 | +++ perl-5.8.8/lib/Net/Config.pm 2006-02-03 00:00:55.000000000 +1100 | ||
6 | @@ -57,9 +57,8 @@ | ||
7 | } | ||
8 | TRY_INTERNET_CONFIG | ||
9 | |||
10 | -my $file = __FILE__; | ||
11 | +my $file = '/etc/perl/Net/libnet.cfg'; | ||
12 | my $ref; | ||
13 | -$file =~ s/Config.pm/libnet.cfg/; | ||
14 | if ( -f $file ) { | ||
15 | $ref = eval { local $SIG{__DIE__}; do $file }; | ||
16 | if (ref($ref) eq 'HASH') { | ||