From 85cca644061f3d76aef9af343bc5438b0c8adc9a Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Thu, 12 Sep 2013 15:15:24 -0700
Subject: [PATCH] use t_ws_name, not ws_name so we avoid overflowing

---
 txt2xls | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/txt2xls b/txt2xls
index ea2c87b..ce36965 100755
--- a/txt2xls
+++ b/txt2xls
@@ -187,7 +187,7 @@ for my $file (@ARGV) {
 	    my $t_ws_name = $ws_name;
 	    my $maxlen = 31-length('.'.$overflow);
 	    $t_ws_name =~ s{^(.{0,$maxlen}).*$}{$1};
-	    $ws = $wb->add_worksheet($ws_name.'.'.$overflow);
+	    $ws = $wb->add_worksheet($t_ws_name.'.'.$overflow);
             $overflow++;
 	    $row=1;
 	    output_row(\@header_row,$row,$ws,$wb,\%wb_formats,\%options);
-- 
2.39.2