generate: Avoid $err_file undefined warning during startup

If, for example, one of the input files implied by the command line
arguments is missing, err is called with $err_file not yet set.

Handle this case.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/generate b/generate
index ad8c9eadecf8ae1df38183cdb8e010cd53fff865..01c123e1c5c45b67af8d1c60c2b76870a40c3113 100755 (executable)
--- a/generate
+++ b/generate
@@ -187,7 +187,9 @@ our %warn_unk;
 
 sub err ($) {
     my ($m) = @_;
 
 sub err ($) {
     my ($m) = @_;

-    die "subdirmk: ${err_file}:$.: $m\n";
+    die defined $err_file
+       ? "subdirmk: ${err_file}:$.: $m\n"
+       : "subdirmk: $m\n";

 }
 
 sub wrncore ($$) {
 }
 
 sub wrncore ($$) {