From 9523246f68c04499af86eaabe2ae4bcaeae014fd Mon Sep 17 00:00:00 2001
From: Andreas Romeyke <andreas.romeyke@slub-dresden.de>
Date: Tue, 1 Aug 2023 10:08:31 +0200
Subject: [PATCH] - modernized to use perl 5.36 - normalized CLI option
'--debug-to-file'
---
perl/exit_strategy.pl | 12 ++++--------
1 file changed, 4 insertions(+), 8 deletions(-)
diff --git a/perl/exit_strategy.pl b/perl/exit_strategy.pl
index 3aea12a..9bb680d 100644
--- a/perl/exit_strategy.pl
+++ b/perl/exit_strategy.pl
@@ -37,11 +37,7 @@
# perl ./exit_strategy.pl --help
###############################################################################
-
-use strict;
-use warnings;
-use feature qw( say signatures );
-no warnings "experimental::signatures";
+use v5.36;
use utf8; # for debugging output
use constant DEBUG => 0; # no debug
use Carp;
@@ -610,11 +606,11 @@ GetOptions(
say <<"HELP";
call $0 with following options
--help ............... this help
- --recovery ........... set special recovery flag, if set deleted IEs will be ignored
+ --recovery ........... set special recovery flag, if set deleted IEs will be ignored (handle with care!)
--continue ........... tries to add IEs to existing database, ignores IEs which already exists in DB (dangerous!)
--sqlitedb-file=FILE . set database to file FILE
--enable-sqldump ..... dumps a given database as SQL to STDOUT
- --debug_to_file=FILE . dumps internal structure as YAML to FILE
+ --debug-to-file=FILE . dumps internal structure as YAML to FILE
create an exit-DB:
$0 [--recovery] [--sqlitedb-file=FILE] DIR [DIR…]
@@ -628,7 +624,7 @@ HELP
"recovery" => \$flag_recovery,
"sqlitedb-file=s" => \$db_filename,
"enable-sqldump" => \$flag_sqldump,
- "debug_to_file=s" => \$debug_to_file,
+ "debug-to-file=s" => \$debug_to_file,
'<>' => sub {push @ARGV_tail, @_;}
) or pod2usage(2);
--
GitLab