X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=blobdiff_plain;f=text%2Fjoin_lines_if_short;h=9e45adc31d2b2e0e61ea891d2139ebe3bf0e16e8;hp=14001041b324719ca49ee1e0990c53a44b239fe5;hb=8813311a44353afdb573577959ccf676b5318e47;hpb=f9201dc2d1699f5161e5e29690a1634e8063bb85

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";