['ConfDir',          'relative_dir',   'etc'],

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

if ($Global::NoAbsolute) {
  # sanity check on filenames
  if (file_name_is_absolute($value)) {
    config_error('Absolute path %s not allowed in %s directive',
           $value, $var)
  }
  if ($value =~ m#^\.\./.*\.\.#) {
    config_error('Path %s outside of catalog directory not allowed in %s directive',
           $value, $var)
  }
}

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

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