|
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 |
- |
|
|