getpwuid() might succeed but that's no guarantee

that the $home will be defined.

p4raw-id: //depot/perl@12588

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