diff options
author | Peter Wu <peter@lekensteyn.nl> | 2017-07-15 21:13:28 +0200 |
---|---|---|
committer | Anders Broman <a.broman58@gmail.com> | 2017-07-17 07:57:38 +0000 |
commit | 44c34ac777d291dbac752c2752fe1ba8a3f37a3d (patch) | |
tree | e835ba990837c6059ec606f1353adff29bc56755 /doc/make-authors-short.pl | |
parent | 30f7014dfc4de64d6d4fb937fc75856e21210dcb (diff) |
Fix formatting of AUTHORS list, fix Perl warning
Fixes the following warning in Perl 5.26:
Unescaped left brace in regex is deprecated here (and will be fatal in Perl 5.30), passed through in regex; marked by <-- HERE in m/(.*){ <-- HERE / at doc/make-authors-short.pl line 36.
While at it, fix formatting of the AUTHORS-SHORT file, a newline must be
present after "}" or the file will be mis-parsed.
Change-Id: I76bc1a30714dafd703342d2d430dc1c90cf2bf82
Reviewed-on: https://code.wireshark.org/review/22637
Petri-Dish: Peter Wu <peter@lekensteyn.nl>
Tested-by: Petri Dish Buildbot <buildbot-no-reply@wireshark.org>
Reviewed-by: Michael Mann <mmann78@netscape.net>
Reviewed-by: Anders Broman <a.broman58@gmail.com>
Diffstat (limited to 'doc/make-authors-short.pl')
-rwxr-xr-x | doc/make-authors-short.pl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/doc/make-authors-short.pl b/doc/make-authors-short.pl index 229622d995..14fdd503ac 100755 --- a/doc/make-authors-short.pl +++ b/doc/make-authors-short.pl @@ -33,12 +33,14 @@ s/\xef\xbb\xbf//; # Skip UTF-8 byte order mark print unless /^\n/; while (<>) { - if (/(.*){/) { + if (/(.*?)\s*\{/) { $subinfo = 1; print "$1\n"; - } elsif (/}/) { + } elsif (/\}/) { $subinfo = 0; if (($nextline = <>) !~ /^[\s]*$/) { + print STDERR "Missing newline after '}', found: $nextline" + if $nextline =~ m/\{/; print $nextline; } } elsif ($subinfo == 1) { |