User may not have a valid home directory even if

getpwuid() succedds.

p4raw-id: //depot/perl@13690

1 files changed, 5 insertions, 3 deletions

diff --git a/ext/File/Glob/t/basic.t b/ext/File/Glob/t/basic.t
index c6fc21739b..2eb891b348 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 ";
+	}
     }
   };
 }