Lines Matching refs:key
49 my($key) = @_;
52 if( $key eq 'SYS$LOGIN' && !$IsVMS && !$IsMacOS ) {
53 ok( !chdir(), "chdir() on $^O ignores only \$ENV{$key} set" );
58 ok( chdir(), "chdir() w/ only \$ENV{$key} set" );
59 is( abs_path, $ENV{$key}, ' abs_path() agrees' );
69 ok( chdir(undef), "chdir(undef) w/ only \$ENV{$key} set" );
70 is( abs_path, $ENV{$key}, ' abs_path() agrees' );
81 ok( chdir(''), "chdir('') w/ only \$ENV{$key} set" );
82 is( abs_path, $ENV{$key}, ' abs_path() agrees' );
120 foreach my $key (@magic_envs) {
125 $ENV{$key} = catdir $Cwd, ($IsVMS ? 'OP' : 'op');
127 check_env($key);