generate: Avoid $err_file undefined warning during startup

[subdirmk.git] / generate

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) = @_;
-    die "subdirmk: ${err_file}:$.: $m\n";
+    die defined $err_file
+       ? "subdirmk: ${err_file}:$.: $m\n"
+       : "subdirmk: $m\n";
 }
 
 sub wrncore ($$) {