diff options
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.diff | 38 |
1 files changed, 0 insertions, 38 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 deleted file mode 100644 index 998a6a3d81..0000000000 --- a/meta/recipes-devtools/perl/perl-5.14.3/debian/fixes/module-build-home-directory.diff +++ /dev/null | |||
@@ -1,38 +0,0 @@ | |||
1 | Upstream-Status:Inappropriate [debian patches] | ||
2 | From 9266292f705f2a3b6e5b97fa50e5f2be31371d5c Mon Sep 17 00:00:00 2001 | ||
3 | From: Dominic Hargreaves <dom@earth.li> | ||
4 | Date: Mon, 2 May 2011 10:35:04 +0100 | ||
5 | Subject: Fix failing tilde test when run under a UID without a passwd entry | ||
6 | |||
7 | Bug: https://rt.cpan.org/Public/Bug/Display.html?id=67893 | ||
8 | Bug-Debian: http://bugs.debian.org/624850 | ||
9 | |||
10 | Patch-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 | |||
15 | diff --git a/cpan/Module-Build/t/tilde.t b/cpan/Module-Build/t/tilde.t | ||
16 | index 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"; | ||