1
1

Skip empty files to avoid infinite loop

Signed-off-by: Ralph Castain <rhc@open-mpi.org>
Этот коммит содержится в:
Ralph Castain 2017-02-27 06:02:54 -08:00
родитель af0b5cffb4
Коммит a774ea73e4

Просмотреть файл

@ -72,6 +72,12 @@ my $fh;
# Examine each of the files and remove trailing blank lines
foreach my $f (@files) {
quiet_print "==> Working file: $f\n";
# check file size
my $filesize = -s $f;
if (0 == $filesize) {
next;
}
open $fh, "+<$f" or die "$!";
binmode $fh; # Just in case