From ac71aee2ce35bb69620f1e1aaedf1ee1e2983c8d Mon Sep 17 00:00:00 2001
From: Andreas Romeyke <art1@andreas-romeyke.de>
Date: Mon, 2 Aug 2021 16:29:56 +0200
Subject: [PATCH] - fixed warning - fixed "enable-sqldump" option
---
perl/exit_strategy.pl | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/perl/exit_strategy.pl b/perl/exit_strategy.pl
index 7119fa6..53b5391 100644
--- a/perl/exit_strategy.pl
+++ b/perl/exit_strategy.pl
@@ -489,7 +489,7 @@ HELP
},
"recovery" => \$flag_recovery,
"sqlitedb-file=s" => \$db_filename,
- "enable_sqldump" => \$flag_sqldump,
+ "enable-sqldump" => \$flag_sqldump,
'<>' => sub {push @ARGV_tail, @_;}
) or pod2usage(2);
@@ -532,7 +532,7 @@ my $cnt_unsorted_files = searching_ie_files(\@dirs, $tmp_ies_unsorted_file);
my $fh_unsorted_IEs = $tmp_ies_unsorted_file->openr();
my $count = 0;
my $progressbar = Time::Progress->new(min => 0, max => $cnt_unsorted_files, smoothing => 1);
-my $dbh = DBI->connect("dbi:SQLite:dbname=$db_filename", "", "", {
+$dbh = DBI->connect("dbi:SQLite:dbname=$db_filename", "", "", {
RaiseError => 1,
sqlite_unicode => 1,
}) or die "could not connect to database (file '$db_filename')", $DBI::errstr;
--
GitLab