Lines 53-59
GetOptions(
Link Here
|
53 |
'h|help' => \$help, |
53 |
'h|help' => \$help, |
54 |
); |
54 |
); |
55 |
|
55 |
|
56 |
if ( $help || !$confirm ) { |
56 |
pod2usage(q|--test and --confirm cannot be specified together|) if $test and $confirm; |
|
|
57 |
|
58 |
unless ( $confirm or $test ) { |
59 |
warn "Running in test mode as --confirm is not passed\n"; |
60 |
$test = 1; |
61 |
} |
62 |
|
63 |
if ( $help ) { |
57 |
say qq{ |
64 |
say qq{ |
58 |
delete_records_via_leader.pl - Attempt to delete any MARC records where the leader character 5 equals 'd' |
65 |
delete_records_via_leader.pl - Attempt to delete any MARC records where the leader character 5 equals 'd' |
59 |
usage: delete_records_via_leader.pl --confirm --verbose [--test] |
66 |
usage: delete_records_via_leader.pl --confirm --verbose [--test] |
60 |
- |
|
|