From: Don Armstrong <don@donarmstrong.com>
Date: Thu, 12 Sep 2013 22:15:24 +0000 (-0700)
Subject: use t_ws_name, not ws_name so we avoid overflowing
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=85cca644061f3d76aef9af343bc5438b0c8adc9a;p=bin.git

use t_ws_name, not ws_name so we avoid overflowing
---

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