}
sub rhsargs ($) {
- my ($row) = @_;
+ my ($defrow) = @_;
+ my $row = { };
while (@ARGV) {
$_ = shift @ARGV;
my $f = (s/^\#// ? 'comment' : 'redirect');
die "$f supplied twice\n" if exists $row->{$f};
$row->{$f} = $_;
}
+ foreach my $f (keys %$defrow) {
+ next if defined $row->{$f};
+ $row->{$f} = $defrow->{$f};
+ }
qualify $row->{'redirect'};
return $row;
}