Mercurial > hg > octave-nkf > gnulib-hg
changeset 13241:cf12b14b472b
maint.mk: use gnu-style indentation in an embedded perl script
* top/maint.mk (detect_empty_lines_at_EOF_): Clean up formatting.
Rename variable: s/two/last_two_bytes/
author | Jim Meyering <meyering@redhat.com> |
---|---|
date | Sat, 17 Apr 2010 22:13:41 +0200 |
parents | 2fe50700ce2c |
children | e75ad760555e |
files | ChangeLog top/maint.mk |
diffstat | 2 files changed, 18 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2010-04-17 Jim Meyering <meyering@redhat.com> + + maint.mk: use gnu-style indentation in an embedded perl script + * top/maint.mk (detect_empty_lines_at_EOF_): Clean up formatting. + Rename variable: s/two/last_two_bytes/ + 2010-04-16 Eric Blake <eblake@redhat.com> test-stdbool: skip test that fails with Solaris CC
--- a/top/maint.mk +++ b/top/maint.mk @@ -694,16 +694,18 @@ # perl -pi -0777 -e 's/\n\n+$/\n/' files... # detect_empty_lines_at_EOF_ = \ - foreach my $$f (@ARGV) { \ - open F, "<", $$f or (warn "failed to open $$f: $$!\n"), next; \ - my $$p = sysseek (F, -2, 2); \ - my $$c = "seek failure probably means file has < 2 bytes; ignore"; \ - my $$two; \ - defined $$p and $$p = sysread F, $$two, 2; \ - close F; \ - $$c = "ignore read failure"; \ - $$p && $$two eq "\n\n" and (print $$f), $$fail=1; \ - } END { exit defined $$fail } + foreach my $$f (@ARGV) \ + { \ + open F, "<", $$f or (warn "failed to open $$f: $$!\n"), next; \ + my $$p = sysseek (F, -2, 2); \ + my $$c = "seek failure probably means file has < 2 bytes; ignore"; \ + my $$last_two_bytes; \ + defined $$p and $$p = sysread F, $$last_two_bytes, 2; \ + close F; \ + $$c = "ignore read failure"; \ + $$p && $$last_two_bytes eq "\n\n" and (print $$f), $$fail=1; \ + } \ + END { exit defined $$fail } sc_prohibit_empty_lines_at_EOF: @perl -le '$(detect_empty_lines_at_EOF_)' $$($(VC_LIST_EXCEPT)) \ || { echo '$(ME): the above files end with empty line(s)' \