diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-22 19:58:34 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-22 19:58:34 +0000 |
| commit | c44feae73a9ab8dd587fbb4994f81bc46dd2f1d9 (patch) | |
| tree | 4028f54882062f6a3ec95b53e724dfdc8b5c5eba /ext/File | |
| parent | 68f2247529d94c7f30b8fb3fdfab3ea64757a395 (diff) | |
| download | perl-c44feae73a9ab8dd587fbb4994f81bc46dd2f1d9.tar.gz | |
getpwuid() might succeed but that's no guarantee
that the $home will be defined.
p4raw-id: //depot/perl@12588
Diffstat (limited to 'ext/File')
| -rwxr-xr-x | ext/File/Glob/t/basic.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/File/Glob/t/basic.t b/ext/File/Glob/t/basic.t index 65fa36a6b1..c6fc21739b 100755 --- 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 "; } }; |