diff options
| author | Jim Meyering <meyering@redhat.com> | 2010-04-17 22:13:41 +0200 |
|---|---|---|
| committer | Jim Meyering <meyering@redhat.com> | 2010-04-17 22:15:37 +0200 |
| commit | 340812dc815bfb7579805a866715de3cb386b040 (patch) | |
| tree | 727b17ff90f46d2ff46baf666909358976eaf9aa /top | |
| parent | fef5e6b4fc847bb1c01a20314effae7cb7828f38 (diff) | |
| download | gnulib-340812dc815bfb7579805a866715de3cb386b040.tar.gz | |
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/
Diffstat (limited to 'top')
| -rw-r--r-- | top/maint.mk | 22 |
1 files changed, 12 insertions, 10 deletions
diff --git a/top/maint.mk b/top/maint.mk index cb8461cdc8..f646e4376e 100644 --- a/top/maint.mk +++ b/top/maint.mk @@ -694,16 +694,18 @@ sc_prohibit_cvs_keyword: # 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)' \ |