diff options
author | Jörg Mayer <jmayer@loplof.de> | 2004-05-21 21:08:41 +0000 |
---|---|---|
committer | Jörg Mayer <jmayer@loplof.de> | 2004-05-21 21:08:41 +0000 |
commit | 185ca863cb49d0b0e9cbfc9a17f2690d5f525268 (patch) | |
tree | 62bc6eda12ef0a391f20964236b206d516bae51f /make-authors-short.pl | |
parent | f499f30a84fef681bde52e63eec3831f5f5cce81 (diff) |
Don't print empty lines follwing a }
svn path=/trunk/; revision=10948
Diffstat (limited to 'make-authors-short.pl')
-rwxr-xr-x | make-authors-short.pl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/make-authors-short.pl b/make-authors-short.pl index b4a47c3f8a..39cc77796f 100755 --- a/make-authors-short.pl +++ b/make-authors-short.pl @@ -1,11 +1,14 @@ #!/usr/bin/perl -w +# $Id: make-authors-short.pl,v 1.2 2004/05/21 21:08:41 jmayer Exp $ + # Remove tasks from individual author entries from AUTHORS file # for use in the about dialog. use strict; my $subinfo=0; +my $nextline; while (<>) { if (/(.*){/) { @@ -13,6 +16,9 @@ while (<>) { print "$1\n"; } elsif (/}/) { $subinfo = 0; + if (($nextline = <>) !~ /^$/) { + print $nextline; + } } elsif ($subinfo == 1) { next; } else { |