Warnings: generate: Basic `wrn' function

[secnet.git] / generate

diff --git a/generate b/generate
index f5c416db226dd22b1c2b7e434c09f3516fc1b2b2..9be1cfb8bf4b5d9f6ceabb91bd1174724cf8a69b 100755 (executable)
--- a/generate
+++ b/generate
@@ -176,6 +176,11 @@ sub err ($) {
     die "subdirmk: ${err_file}:$.: $m\n";
 }
 
+sub wrn ($) {
+    my ($m) = @_;
+    print STDERR "subdirmk: warning: ${err_file}:$.: $m\n";
+}
+
 sub ddbl_only ($) {
     my ($e) = @_;
     return if $ddbl;