From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 14 Dec 2001 20:26:51 +0000 (+0000)
Subject: User may not have a valid home directory even if
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7bb5bfba443be93b884381f142c125de71fe95d1;p=p5sagit%2Fp5-mst-13.2.git

User may not have a valid home directory even if
getpwuid() succedds.

p4raw-id: //depot/perl@13690
---

diff --git a/ext/File/Glob/t/basic.t b/ext/File/Glob/t/basic.t
index c6fc217..2eb891b 100755
--- a/ext/File/Glob/t/basic.t
+++ b/ext/File/Glob/t/basic.t
@@ -49,9 +49,11 @@ if ($^O ne 'MSWin32' && $^O ne 'NetWare' && $^O ne 'VMS' && $^O ne 'os2') {
     ($name, $home) = (getpwuid($>))[0,7];
     1;
   } and do {
-    @a = bsd_glob("~$name", GLOB_TILDE);
-    if (defined $home && (scalar(@a) != 1 || $a[0] ne $home || GLOB_ERROR)) {
-	print "not ";
+    if (defined $home && defined $name && -d $home) {
+	@a = bsd_glob("~$name", GLOB_TILDE);
+	if ((scalar(@a) != 1 || $a[0] ne $home || GLOB_ERROR)) {
+	    print "not ";
+	}
     }
   };
 }