fix defaulting

diff --git a/fyvzl b/fyvzl
index 8fe4e73c429548124cafbe0a0149ff41817655e7..86e760ff20cfe83db149865ae898791ad26b4aaf 100755 (executable)
--- a/fyvzl
+++ b/fyvzl
@@ -117,13 +117,18 @@ sub insertrow ($) {
 }
 
 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;
 }