X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?p=subdirmk.git;a=blobdiff_plain;f=generate;h=bae0995bef30dc90fbd19e7cb511d61a0887b99a;hp=61bbd507c683adc89d5fe648260737a7c0492e73;hb=80097a24dcbc044e36242a7e1d67bd57503e3eec;hpb=08e825fede28f22ce3fbaf494c3e06360ed74d7a

diff --git a/generate b/generate
index 61bbd50..bae0995 100755
--- a/generate
+++ b/generate
@@ -198,6 +198,8 @@ sub wrncore ($$) {
 
 sub wrn ($$) {
     my ($wk,$m) = @_;
+    our %warn_dedupe;
+    return 0 if $warn_dedupe{$err_file,$.,$wk,$m}++;
     wrncore($wk, "${err_file}:$.: $m");
 }