Lines 67-74
GetOptions(
Link Here
|
67 |
'category=s' => $borrower_category, |
67 |
'category=s' => $borrower_category, |
68 |
'skip-category=s' => $skip_borrower_category, |
68 |
'skip-category=s' => $skip_borrower_category, |
69 |
'list-categories' => \$list_categories, |
69 |
'list-categories' => \$list_categories, |
70 |
'itemtype=s' => $itemtype, |
70 |
'itemtype=s' => \$itemtype, |
71 |
'skip-itemtype=s' => $skip_itemtype, |
71 |
'skip-itemtype=s' => \$skip_itemtype, |
72 |
'list-itemtypes' => \$list_itemtypes, |
72 |
'list-itemtypes' => \$list_itemtypes, |
73 |
); |
73 |
); |
74 |
|
74 |
|
Lines 86-92
if ( $help ) {
Link Here
|
86 |
|
86 |
|
87 |
if ( scalar @$borrower_category && scalar @$skip_borrower_category) { |
87 |
if ( scalar @$borrower_category && scalar @$skip_borrower_category) { |
88 |
pod2usage( -verbose => 1, |
88 |
pod2usage( -verbose => 1, |
89 |
-message => "The options --category and --skip-category are mually exclusive.\n" |
89 |
-message => "The options --category and --skip-category are mutually exclusive.\n" |
90 |
. "Use one or the other.", |
90 |
. "Use one or the other.", |
91 |
-exitval => 1 |
91 |
-exitval => 1 |
92 |
); |
92 |
); |
93 |
- |
|
|