Error handling: Trim the `bad escape' message.e

Do not print the whole line, only the next 5 chars (say) - and, also,
not any newlines.

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

diff --git a/generate b/generate
index 209a1f3e6a1f19f04593cf46ff60bab84172d23e..62e915fb35df1065f466a1c25b5f4312b52bc726 100755 (executable)
--- a/generate
+++ b/generate
@@ -296,7 +296,8 @@ sub process_input_mk ($$$$) {
                od $_;
                $_ = '';
            } else {
-               err "bad &-escape \`$$esclitr$_'";
+               m{^.{0,5}};
+               err "bad &-escape \`$$esclitr$&'";
            }
        }
        if (defined $buffering_output) {