From 7bb5bfba443be93b884381f142c125de71fe95d1 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Fri, 14 Dec 2001 20:26:51 +0000 Subject: [PATCH] User may not have a valid home directory even if getpwuid() succedds. p4raw-id: //depot/perl@13690 --- ext/File/Glob/t/basic.t | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) 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 "; + } } }; } -- 2.7.4