Next attempt to match an empty line on Windows

svn path=/trunk/; revision=10960
This commit is contained in:
Jörg Mayer 2004-05-22 14:05:33 +00:00
parent 94b84ca199
commit 6a6f1cc23b
1 changed files with 2 additions and 2 deletions

View File

@ -1,6 +1,6 @@
#!/usr/bin/perl -w
# $Id: make-authors-short.pl,v 1.2 2004/05/21 21:08:41 jmayer Exp $
# $Id: make-authors-short.pl,v 1.3 2004/05/22 14:05:33 jmayer Exp $
# Remove tasks from individual author entries from AUTHORS file
# for use in the about dialog.
@ -16,7 +16,7 @@ while (<>) {
print "$1\n";
} elsif (/}/) {
$subinfo = 0;
if (($nextline = <>) !~ /^$/) {
if (($nextline = <>) !~ /^[\s\r]*$/) {
print $nextline;
}
} elsif ($subinfo == 1) {