|
|
} | } |
| |
sub read_profiles() { | sub read_profiles() { |
$_ = readlink '/etc/make.profile'; |
$_ = readlink '/etc/make.profile' or |
die "/etc/make.profile is not a symlink\n" if $!; |
die "/etc/make.profile is not a symlink\n"; |
@profiles = norm_path '/etc', $_; | @profiles = norm_path '/etc', $_; |
PARENT: { | PARENT: { |
for(noncomments "$profiles[0]/parent") { | for(noncomments "$profiles[0]/parent") { |