Strip trailing whitspace only when necessary.

[blhc/blhc.git] / bin / blhc

diff --git a/bin/blhc b/bin/blhc
index 5d408c31e0c6a70aaa5360c9c9ae667785abd001..2ae115015036a3a2feecc836578c59057d89f196 100755 (executable)
--- a/bin/blhc
+++ b/bin/blhc
@@ -471,12 +471,13 @@ while (my $line = <>) {
     # line. parse_line() is slow, only use it when necessary.
     my @line = (not $line =~ /;/)
              ? ($line)
-             : Text::ParseWords::parse_line(';', 1, $line);
+             : map {
+                   # Ensure newline at the line end - necessary for correct
+                   # parsing later.
+                   $_ =~ s/\s+$//;
+                   $_ .= "\n";
+               } Text::ParseWords::parse_line(';', 1, $line);
     foreach $line (@line) {
-        # Add newline, drop all other whitespace at the end of a line.
-        $line =~ s/\s+$//;
-        $line .= "\n";
-
         if ($continuation) {
             $continuation = 0;