forked from osmocom/wireshark
3b86e04c2d
Our authors lists and man pages are encoded as UTF-8 and have been for quite a while. Remove perlnoutf.pl and ensure that standard I/O uses UTF-8 as described at https://www.perl.com/pub/2012/05/perlunicook-make-all-io-default-to-utf-8.html/ Change-Id: I7016ec5e3a12934463b43bcfdde2c424069c20ac Reviewed-on: https://code.wireshark.org/review/37817 Petri-Dish: Gerald Combs <gerald@wireshark.org> Tested-by: Petri Dish Buildbot Reviewed-by: Anders Broman <a.broman58@gmail.com>
40 lines
763 B
Perl
Executable file
40 lines
763 B
Perl
Executable file
# Remove tasks from individual author entries from AUTHORS file
|
|
# for use in the about dialog.
|
|
#
|
|
# Copyright 2004 Ulf Lamping <ulf.lamping@web.de>
|
|
#
|
|
# Wireshark - Network traffic analyzer
|
|
# By Gerald Combs <gerald@wireshark.org>
|
|
# Copyright 1998 Gerald Combs
|
|
#
|
|
# SPDX-License-Identifier: GPL-2.0-or-later
|
|
#
|
|
|
|
use strict;
|
|
use open qw(:std :utf8);
|
|
|
|
my $subinfo=0;
|
|
my $nextline;
|
|
|
|
$_ = <>;
|
|
s/\xef\xbb\xbf//; # Skip UTF-8 byte order mark
|
|
print unless /^\n/;
|
|
|
|
while (<>) {
|
|
if (/(.*?)\s*\{/) {
|
|
$subinfo = 1;
|
|
print "$1\n";
|
|
} elsif (/\}/) {
|
|
$subinfo = 0;
|
|
if (($nextline = <>) !~ /^[\s]*$/) {
|
|
print STDERR "No blank line after '}', found: $nextline"
|
|
if $nextline =~ m/\{/;
|
|
print $nextline;
|
|
}
|
|
} elsif ($subinfo == 1) {
|
|
next;
|
|
} else {
|
|
print;
|
|
}
|
|
}
|