Bug 22509: Fix POD error

1. "Apparent command =item not preceded by blank line"
2. Display the options for help
3. Do not run if no --field passed

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>

diff --git a/misc/add_date_fields_to_marc_records.pl b/misc/add_date_fields_to_marc_records.pl
index 6368c36..9d348d3 100755 (executable)
--- a/misc/add_date_fields_to_marc_records.pl
+++ b/misc/add_date_fields_to_marc_records.pl
@@ -41,7 +41,8 @@ GetOptions(
     'unless-exists=s' => \$unless_exists_field,
 ) || podusage(1);
 
-pod2usage(0) if $help;
+pod2usage(1) if $help;
+pod2usage("Parameter field is mandatory") unless @fields;
 
 my @fields_to_add;
 my $dt = dt_from_string;    # Could be an option of the script
@@ -99,6 +100,8 @@ Add some MARC fields to bibliographic records.
 
 The replacement tokens are the ones used by strftime.
 
+=head1 OPTIONS
+
 =over 8
 
 =item B<--help>
@@ -112,6 +115,7 @@ Verbose mode.
 =item B<--confirm>
 
 Confirmation flag, the script will be running in dry-run mode if set not.
+
 =item B<--where>
 
 Limits the search on bibliographic records with a user-specified WHERE clause.