summaryrefslogtreecommitdiffstats
path: root/meta/recipes-devtools/perl/perl-5.14.3/debian/fixes/module-build-home-directory.diff
diff options
context:
space:
mode:
Diffstat (limited to 'meta/recipes-devtools/perl/perl-5.14.3/debian/fixes/module-build-home-directory.diff')
-rw-r--r--meta/recipes-devtools/perl/perl-5.14.3/debian/fixes/module-build-home-directory.diff38
1 files changed, 38 insertions, 0 deletions
diff --git a/meta/recipes-devtools/perl/perl-5.14.3/debian/fixes/module-build-home-directory.diff b/meta/recipes-devtools/perl/perl-5.14.3/debian/fixes/module-build-home-directory.diff
new file mode 100644
index 0000000..998a6a3
--- /dev/null
+++ b/meta/recipes-devtools/perl/perl-5.14.3/debian/fixes/module-build-home-directory.diff
@@ -0,0 +1,38 @@
1Upstream-Status:Inappropriate [debian patches]
2From 9266292f705f2a3b6e5b97fa50e5f2be31371d5c Mon Sep 17 00:00:00 2001
3From: Dominic Hargreaves <dom@earth.li>
4Date: Mon, 2 May 2011 10:35:04 +0100
5Subject: Fix failing tilde test when run under a UID without a passwd entry
6
7Bug: https://rt.cpan.org/Public/Bug/Display.html?id=67893
8Bug-Debian: http://bugs.debian.org/624850
9
10Patch-Name: fixes/module-build-home-directory.diff
11---
12 cpan/Module-Build/t/tilde.t | 6 ++++--
13 1 files changed, 4 insertions(+), 2 deletions(-)
14
15diff --git a/cpan/Module-Build/t/tilde.t b/cpan/Module-Build/t/tilde.t
16index fac821b..04f0210 100644
17--- a/cpan/Module-Build/t/tilde.t
18+++ b/cpan/Module-Build/t/tilde.t
19@@ -46,7 +46,8 @@ SKIP: {
20
21 unless (defined $home) {
22 my @info = eval { getpwuid $> };
23- skip "No home directory for tilde-expansion tests", 15 if $@;
24+ skip "No home directory for tilde-expansion tests", 15 if $@
25+ or !defined $info[7];
26 $home = $info[7];
27 }
28
29@@ -95,7 +96,8 @@ SKIP: {
30 # Again, with named users
31 SKIP: {
32 my @info = eval { getpwuid $> };
33- skip "No home directory for tilde-expansion tests", 1 if $@;
34+ skip "No home directory for tilde-expansion tests", 1 if $@
35+ or !defined $info[7] or !defined $info[0];
36 my ($me, $home) = @info[0,7];
37
38 my $expected = "$home/fooxzy";