diff options
Diffstat (limited to 'make-authors-short.pl')
-rwxr-xr-x | make-authors-short.pl | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/make-authors-short.pl b/make-authors-short.pl new file mode 100755 index 0000000000..b4a47c3f8a --- /dev/null +++ b/make-authors-short.pl @@ -0,0 +1,21 @@ +#!/usr/bin/perl -w + +# Remove tasks from individual author entries from AUTHORS file +# for use in the about dialog. + +use strict; + +my $subinfo=0; + +while (<>) { + if (/(.*){/) { + $subinfo = 1; + print "$1\n"; + } elsif (/}/) { + $subinfo = 0; + } elsif ($subinfo == 1) { + next; + } else { + print; + } +} |