From 1ecf5ee106354a8e1c55cbd7278064b6283bac0a Mon Sep 17 00:00:00 2001 From: Petro Vashchuk Date: Mon, 11 Oct 2021 16:52:08 +0300 Subject: [PATCH] Bug 29207: Getopt::Long should not ignore cases To avoid Getopt::Long treating upper case and lower case options, this patch restores removed ":config no_ignore_case". Steps to reproduce: 1. Start koha-z3950-responder deamon for any instance. 2. Check z3950.log log file, there should be "[fatal] Failed to listen on ...-koha-z3950" in it. 3. Alternatively you can "curl localhost:2100/biblios?version=1.1 -v" to ensure that it doesn't work "Failed to connect to localhost port 2100: Connection refused". 4. Apply the patch. 5. Stop and start daemon again. 6. Check the logs again, there should be no new error there. 7. Same way do the curl to ensure that this time it listens on that port. Signed-off-by: Tomas Cohen Arazi Signed-off-by: Katrin Fischer Signed-off-by: Jonathan Druart --- misc/export_borrowers.pl | 2 +- misc/load_yaml.pl | 2 +- misc/z3950_responder.pl | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/misc/export_borrowers.pl b/misc/export_borrowers.pl index 1a2dd7fab6..d433a55acc 100755 --- a/misc/export_borrowers.pl +++ b/misc/export_borrowers.pl @@ -21,7 +21,7 @@ use Modern::Perl; use Text::CSV; -use Getopt::Long qw( GetOptions ); +use Getopt::Long qw( GetOptions :config no_ignore_case ); use Koha::Script; use C4::Context; diff --git a/misc/load_yaml.pl b/misc/load_yaml.pl index 873e69ed2c..6eece29637 100755 --- a/misc/load_yaml.pl +++ b/misc/load_yaml.pl @@ -20,7 +20,7 @@ use Modern::Perl; use Koha::Script; -use Getopt::Long qw( GetOptions ); +use Getopt::Long qw( GetOptions :config no_ignore_case ); use C4::Context; use C4::Installer; diff --git a/misc/z3950_responder.pl b/misc/z3950_responder.pl index de61cd19e6..3c782c4090 100755 --- a/misc/z3950_responder.pl +++ b/misc/z3950_responder.pl @@ -20,7 +20,7 @@ use Modern::Perl; use File::Basename qw( fileparse ); -use Getopt::Long qw( GetOptions ); +use Getopt::Long qw( GetOptions :config no_ignore_case ); use Pod::Usage qw( pod2usage ); use Koha::Config; -- 2.39.5