From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 30 Dec 2019 11:02:59 +0000 (+0000)
Subject: generate: Avoid $err_file undefined warning during startup
X-Git-Tag: subdirmk/0.3~5
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?p=subdirmk.git;a=commitdiff_plain;h=0da92730089cece4ffe90ab8f68601913611b4cf

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 ad8c9ea..01c123e 100755
--- a/generate
+++ b/generate
@@ -187,7 +187,9 @@ our %warn_unk;
 
 sub err ($) {
     my ($m) = @_;
-    die "subdirmk: ${err_file}:$.: $m\n";
+    die defined $err_file
+	? "subdirmk: ${err_file}:$.: $m\n"
+	: "subdirmk: $m\n";
 }
 
 sub wrncore ($$) {