Lines Matching refs:home
56 # look up the user's home directory
61 my ($name, $home);
65 ($name, $home) = (getpwuid($>))[0,7];
68 skip "$> has no home directory", 1
69 unless defined $home && defined $name && -d $home;
76 is_deeply (\@a, [$home],
77 "GLOB_TILDE expands patterns that start with '~' to user name home directories"
108 $ENV{USERPROFILE} = 'sweet win32 home';
114 my $home = exists $ENV{HOME} ? $ENV{HOME}
118 $tilde_check->($home);
179 local $ENV{HOME} = "sweet home";
240 local $TODO = "home-made glob doesn't do regexes" if $^O eq 'VMS';