['PermanentDir',     'relative_dir',     'perm'],

sub parse_relative_dir {
my($var, $value) = @_;

if (absolute_or_relative($value)) {
  config_error('Path %s not allowed in %s directive',
          $value, $var);
}

$C->{Source}{$var} = $value;

$value = "$C->{VendRoot}/$value"
  unless file_name_is_absolute($value);
$value =~ s./+$..;
$value;
}