From 9ccc38eea2dc2d7d09750ae438ca884311ca3d37 Mon Sep 17 00:00:00 2001
From: Nicolas Boisselier <nicolas.boisselier@gmail.com>
Date: Mon, 10 Apr 2023 03:04:58 +0200
Subject: [PATCH] missing old option renamed

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

diff --git a/bin/html2csv b/bin/html2csv
index f78fa224..e34658f2 100755
--- a/bin/html2csv
+++ b/bin/html2csv
@@ -29,7 +29,7 @@ my $DEBUG = $main::DEBUG = 0;
 
 my %Opt = (
   'num' => undef,
-  'print_num' => 0,
+  'print-num' => 0,
   'tag' => 'table',
   'exp1'=> '',
   'exp2'=> '',
@@ -82,7 +82,7 @@ for my $table ($html =~ m,<${T1}${exp1}[^>]*>(.*?)<\s*/\s*${T1}\s*>,gi) {
   $table = "<>$table</>" unless $T2;
   for my $tr ($table =~ m,<(${T2})${exp2}[^>]*>(.*?)<\s*/\s*${T2}\s*>,gi) {
     my @col;
-    print "$table_num " if $Opt{print_num};
+    print "$table_num " if $Opt{'print-num'};
 
   	$tr = "<>$tr</>" unless $T3;
   	my $count = 0;
-- 
2.47.3