some compilers dont like unnamed unions and structs

[obnox/wireshark/wip.git] / make-authors-short.pl

diff --git a/make-authors-short.pl b/make-authors-short.pl
index 39cc77796fa1143ecb558ffb97c2fa61f947bec6..ac96b0c264e049942d5c7525dd437b08816577c5 100755 (executable)
--- a/make-authors-short.pl
+++ b/make-authors-short.pl
@@ -1,22 +1,26 @@
-#!/usr/bin/perl -w
-
-# $Id: make-authors-short.pl,v 1.2 2004/05/21 21:08:41 jmayer Exp $
+# $Id$
 
 # Remove tasks from individual author entries from AUTHORS file
 # for use in the about dialog.
+#
+# Must be called via perlnoutf.
 
 use strict;
 
 my $subinfo=0;
 my $nextline;
 
+$_ = <>;
+s/\xef\xbb\xbf//;              # Skip UTF-8 byte order mark
+print unless /^\n/;
+
 while (<>) {
        if (/(.*){/) {
                $subinfo = 1;
                print "$1\n";
        } elsif (/}/) {
                $subinfo = 0;
-               if (($nextline = <>) !~ /^$/) {
+               if (($nextline = <>) !~ /^[\s]*$/) {
                        print $nextline;
                }
        } elsif ($subinfo == 1) {