clarify tshark -B (file format) option

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

diff --git a/make-authors-short.pl b/make-authors-short.pl
index caa8b5bc90bcd5f32310df5f8077e62a1c8642a5..ac96b0c264e049942d5c7525dd437b08816577c5 100755 (executable)
--- a/make-authors-short.pl
+++ b/make-authors-short.pl
@@ -1,18 +1,31 @@
-#!/usr/bin/perl -w
-
 # $Id$
 
-use strict;
+# Remove tasks from individual author entries from AUTHORS file
+# for use in the about dialog.
+#
+# Must be called via perlnoutf.
 
-# Unset environment variables so perl doesn't
-# interpret bytes as UTF-8 characters
+use strict;
 
-delete $ENV{LANG};
-delete $ENV{LANGUAGE};
-delete $ENV{LC_ALL};
-delete $ENV{LC_CTYPE};
+my $subinfo=0;
+my $nextline;
 
-# Call make-authors-short2.pl in same directory, using same interpreter
+$_ = <>;
+s/\xef\xbb\xbf//;              # Skip UTF-8 byte order mark
+print unless /^\n/;
 
-(my $prog2 = $0) =~ s/\.pl$/2.pl/;
-system($^X, "$prog2", @ARGV);
+while (<>) {
+       if (/(.*){/) {
+               $subinfo = 1;
+               print "$1\n";
+       } elsif (/}/) {
+               $subinfo = 0;
+               if (($nextline = <>) !~ /^[\s]*$/) {
+                       print $nextline;
+               }
+       } elsif ($subinfo == 1) {
+               next;
+       } else {
+               print;
+       }
+}