From aabe54000ae8292fa4cc7003491bb9c3a041a704 Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Mon, 18 Mar 2024 07:04:23 -0400 Subject: [PATCH] Bug 34621: Tidy import_patrons.pl Signed-off-by: Marcel de Rooy Signed-off-by: Katrin Fischer (cherry picked from commit c6641ef24f389e65a0dd90d3fd788f110f21158a) Signed-off-by: Fridolin Somers --- misc/import_patrons.pl | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/misc/import_patrons.pl b/misc/import_patrons.pl index 3e3703d7db..968e0a8c36 100755 --- a/misc/import_patrons.pl +++ b/misc/import_patrons.pl @@ -34,7 +34,7 @@ my $welcome_new = 0; my %defaults; my $ext_preserve = 0; my $confirm; -my $verbose = 0; +my $verbose = 0; my $help; my @preserve_fields; my $update_dateexpiry; @@ -58,9 +58,9 @@ GetOptions( 'h|help|?' => \$help, ) or pod2usage(2); -pod2usage(1) if $help; +pod2usage(1) if $help; pod2usage(q|--ee and --et are mutually exclusive|) if $update_dateexpiry_from_today && $update_dateexpiry_from_existing; -pod2usage(q|--file is required|) unless $csv_file; +pod2usage(q|--file is required|) unless $csv_file; pod2usage(q|--matchpoint is required|) unless $matchpoint; warn "Running in dry-run mode, provide --confirm to apply the changes\n" unless $confirm; @@ -104,14 +104,14 @@ if ($verbose) { say q{}; } -if ($verbose > 1 ) { +if ( $verbose > 1 ) { say "Errors:"; - say Data::Dumper::Dumper( $errors ); + say Data::Dumper::Dumper($errors); } -if ($verbose > 2 ) { +if ( $verbose > 2 ) { say "Feedback:"; - say Data::Dumper::Dumper( $feedback ); + say Data::Dumper::Dumper($feedback); } =head1 NAME -- 2.39.5