From 72f9cd8561f06431dbbf7df9021a4573e99b1feb Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 30 Aug 2013 16:04:27 +0100
Subject: [PATCH] fix defaulting

---
 fyvzl | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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