diff options
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 { |