Merge pull request #3043 from rhc54/topic/purge

Skip empty files to avoid infinite loop

Author: Ralph Castain

contrib/purge-trailing-blank-lines.pl

@@ -72,6 +72,12 @@ sub quiet_print {
 # 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