992 |
if $force || ! $req->valid; |
if $force || ! $req->valid; |
993 |
|
|
994 |
# Issue the warnings each time autom4te was run. |
# Issue the warnings each time autom4te was run. |
995 |
|
my $separator = "\n" . ('-' x 25) . " END OF WARNING " . ('-' x 25) . "\n\n"; |
996 |
handle_traces ($req, "$tmp/warnings", |
handle_traces ($req, "$tmp/warnings", |
997 |
('_m4_warn' => "\$1::\$f:\$l::\$2::\$3\n\n")); |
('_m4_warn' => "\$1::\$f:\$l::\$2::\$3$separator")); |
998 |
# Warnings are separated by 2 \n. |
# Swallow excessive newlines. |
999 |
for (split (/\n{2,}/, contents ("$tmp/warnings"))) |
for (split (/\n*$separator\n*/o, contents ("$tmp/warnings"))) |
1000 |
{ |
{ |
1001 |
# The message looks like: |
# The message looks like: |
1002 |
# | syntax::input.as:5::ouch |
# | syntax::input.as:5::ouch |