Change 12588 by jhi@alpha on 2001/10/22 19:58:34
getpwuid() might succeed but that's no guarantee
that the $home will be defined.
Affected files ...
... //depot/perl/ext/File/Glob/t/basic.t#4 edit
Differences ...
==== //depot/perl/ext/File/Glob/t/basic.t#4 (xtext) ====
Index: perl/ext/File/Glob/t/basic.t
--- perl/ext/File/Glob/t/basic.t.~1~ Mon Oct 22 14:15:05 2001
+++ perl/ext/File/Glob/t/basic.t Mon Oct 22 14:15:05 2001
@@ -50,7 +50,7 @@
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 ";
}
};
End of Patch.
