['ErrorFile',     'root_dir',          undef],

sub parse_root_dir {
my($var, $value) = @_;
return '' unless $value;
$value = "$Global::VendRoot/$value"
  unless file_name_is_absolute($value);
$value =~ s./+$..;
return $value;
}

['ErrorFile',        'relative_dir',     'error.log'],

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;
}