use t_ws_name, not ws_name so we avoid overflowing

[bin.git] / txt2xls

diff --git a/txt2xls b/txt2xls
index ea2c87bd7dfe4ca08ddc8a3b2c4b9b587d2b9d3a..ce3696590a687ba5543eb7d471c3eda3bbe3745a 100755 (executable)
--- 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);