X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=txt2xls;h=ce3696590a687ba5543eb7d471c3eda3bbe3745a;hb=85cca644061f3d76aef9af343bc5438b0c8adc9a;hp=ea2c87bd7dfe4ca08ddc8a3b2c4b9b587d2b9d3a;hpb=3b80ac26e69f53ba6109d6cf3cee83040a8d5530;p=bin.git

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