X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=blobdiff_plain;f=fyvzl;h=86e760ff20cfe83db149865ae898791ad26b4aaf;hb=72f9cd8561f06431dbbf7df9021a4573e99b1feb;hp=8fe4e73c429548124cafbe0a0149ff41817655e7;hpb=a44df87d9f60a771d23ce4b89080ff02b4d3bf2f;p=d.git

diff --git a/fyvzl b/fyvzl
index 8fe4e73..86e760f 100755
--- 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;
 }