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

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Sun Mar  6 16:03:55 2011
New Revision: 70699

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=70699
Log:
Add patch missing-home.patch: skip tilde expansion tests if getpwuid()
doesn't return a home directory (closes: #615963).

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

Modified: trunk/libvendorlib-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libvendorlib-perl/debian/changelog?rev=70699&op=diff
==============================================================================
--- trunk/libvendorlib-perl/debian/changelog (original)
+++ trunk/libvendorlib-perl/debian/changelog Sun Mar  6 16:03:55 2011
@@ -1,3 +1,10 @@
+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).
+
+ -- gregor herrmann <gregoa at debian.org>  Sun, 06 Mar 2011 17:02:26 +0100
+
 libvendorlib-perl (0.10-1) unstable; urgency=low
 
   * New upstream release

Added: 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=70699&op=file
==============================================================================
--- trunk/libvendorlib-perl/debian/patches/missing-home.patch (added)
+++ trunk/libvendorlib-perl/debian/patches/missing-home.patch Sun Mar  6 16:03:55 2011
@@ -1,0 +1,27 @@
+Description: skip expansion tests if we don't get a home directory
+Origin: vendor
+Bug-Debian: http://bugs.debian.org/615963
+Forwarded: yes
+Author: gregor herrmann <gregoa at debian.org>
+Last-Update: 2011-03-06
+
+--- a/t/01basic.t
++++ b/t/01basic.t
+@@ -31,6 +31,8 @@
+ 
+     my $expanded = (getpwuid($<))[7] . '/';
+ 
++    skip 'no home directory returned by getpwuid', 1 if $expanded eq '/';
++
+     shift @INC if $INC[0] eq '/etc/perl';
+ 
+     is $INC[0], $expanded, 'bare tilde expansion';
+@@ -54,6 +56,8 @@
+ 
+     my $expanded = (getpwuid($<))[7] . '/';
+ 
++    skip 'no home directory returned by getpwuid', 1 if $expanded eq '/';
++
+     shift @INC if $INC[0] eq '/etc/perl';
+ 
+     is $INC[0], $expanded, 'tilde expansion with user name';

Added: trunk/libvendorlib-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libvendorlib-perl/debian/patches/series?rev=70699&op=file
==============================================================================
--- trunk/libvendorlib-perl/debian/patches/series (added)
+++ trunk/libvendorlib-perl/debian/patches/series Sun Mar  6 16:03:55 2011
@@ -1,0 +1,1 @@
+missing-home.patch