r70733 - in /trunk/libvendorlib-perl/debian: changelog patches/missing-home.patch

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Sun Mar  6 22:03:37 2011
New Revision: 70733

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=70733
Log:
update patch: check if home directory reported by getpwuid exists
(it doesn't in sbuild chroots ...)

Modified:
    trunk/libvendorlib-perl/debian/changelog
    trunk/libvendorlib-perl/debian/patches/missing-home.patch

Modified: trunk/libvendorlib-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libvendorlib-perl/debian/changelog?rev=70733&op=diff
==============================================================================
--- trunk/libvendorlib-perl/debian/changelog (original)
+++ trunk/libvendorlib-perl/debian/changelog Sun Mar  6 22:03:37 2011
@@ -1,7 +1,8 @@
 libvendorlib-perl (0.10-2) UNRELEASED; urgency=low
 
   * Add patch missing-home.patch: skip tilde expansion tests if getpwuid()
-    doesn't return a home directory (closes: #615963).
+    returns a home directory and this directory doesn't exist
+    (closes: #615963).
 
  -- gregor herrmann <gregoa at debian.org>  Sun, 06 Mar 2011 17:02:26 +0100
 

Modified: trunk/libvendorlib-perl/debian/patches/missing-home.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libvendorlib-perl/debian/patches/missing-home.patch?rev=70733&op=diff
==============================================================================
--- trunk/libvendorlib-perl/debian/patches/missing-home.patch (original)
+++ trunk/libvendorlib-perl/debian/patches/missing-home.patch Sun Mar  6 22:03:37 2011
@@ -1,4 +1,5 @@
-Description: skip expansion tests if we don't get a home directory
+Description: skip expansion tests if the home directory reported by getpwuid
+ doesn't exist, as it happens in sbuild chroots with default configuration
 Origin: vendor
 Bug-Debian: http://bugs.debian.org/615963
 Forwarded: yes
@@ -11,7 +12,7 @@
  
      my $expanded = (getpwuid($<))[7] . '/';
  
-+    skip 'no home directory returned by getpwuid', 1 if $expanded eq '/';
++    skip 'home directory reported by getpwuid does not exist', 1 unless -d $expanded;
 +
      shift @INC if $INC[0] eq '/etc/perl';
  
@@ -20,7 +21,7 @@
  
      my $expanded = (getpwuid($<))[7] . '/';
  
-+    skip 'no home directory returned by getpwuid', 1 if $expanded eq '/';
++    skip 'home directory reported by getpwuid does not exist', 1 unless -d $expanded;
 +
      shift @INC if $INC[0] eq '/etc/perl';