write_file $path, $default;
warn "default $path = $default";
$value = $default;
- } else {
- $value = read_file $path if -e $path;
+ } elsif ( -e $path ) {
+ if ( -l $path ) {
+ $value = readlink $path;
+ $value =~ s{.*/([^/]+)$}{$1};
+ } else {
+ $value = read_file $path;
+ }
}
return $value;
}