From 157e498d6b0549d46e4d866d7872025f7d88e6fa Mon Sep 17 00:00:00 2001
From: Ole Tange <ole@tange.dk>
Date: Sun, 11 Oct 2020 12:40:12 +0200
Subject: [PATCH] field: Use \t as separator.

---
 field/field | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/field/field b/field/field
index 3b1b0e9..385aa63 100755
--- a/field/field
+++ b/field/field
@@ -101,7 +101,7 @@ if($Global::must_eval) {
 	    $Calc::f{$#F}++;
 	    @{$Calc::fields->{$#F}} = eval $fields;
 	}
-	print join(" ",@F[@{$Calc::fields->{$#F}}]),"\n";
+	print join("\t",@F[@{$Calc::fields->{$#F}}]),"\n";
     }
 } else {
     # awk counts from 1 not 0
@@ -109,7 +109,7 @@ if($Global::must_eval) {
     # Use mawk (60 MB/s)/gawk (30 MB/s)/awk (? MB/s)
     my $awk = which("mawk") || which("gawk") || which("awk");
 
-    my $awkscript = '{print '.
+    my $awkscript = 'BEGIN {OFS = "\t"} {print '.
 			  (join ",", map { '$'.$_ } @fields).
 			  '}';
     exec($awk,$awkscript);