From: Jason Etheridge <jason@EquinoxInitiative.org>
Date: Wed, 20 Feb 2019 03:28:36 +0000 (-0500)
Subject: avoid trimming trailing empty fields
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=8813311a44353afdb573577959ccf676b5318e47

avoid trimming trailing empty fields
---

diff --git a/text/join_lines_if_short b/text/join_lines_if_short
index 1400104..9e45adc 100755
--- a/text/join_lines_if_short
+++ b/text/join_lines_if_short
@@ -75,7 +75,7 @@ while (my $line = <>) {
     } else {
         $line_buffer = "$line_buffer$join_delimiter$line";
     }
-    my @f = split /$delimiter/, $line_buffer;
+    my @f = split /$delimiter/, $line_buffer, -1;
     if (scalar(@f) >= $colcount) {
         $line_buffer =~ s/\x0D//g; # strip embedded carriage returns
         print "$line_buffer\n";