Skip to content
Snippets Groups Projects
Commit b36a4659 authored by Jens Steidl's avatar Jens Steidl
Browse files

- fix for help option

parent a0998ad2
No related branches found
No related tags found
No related merge requests found
...@@ -560,10 +560,10 @@ GetOptions( ...@@ -560,10 +560,10 @@ GetOptions(
"man" => \$man, # optional "man" => \$man, # optional
) or pod2usage(2); ) or pod2usage(2);
my $dir_err = SLUB::LZA::SIPBuilder::validate_directory($directory);
if ($help) { pod2usage(1); } if ($help) { pod2usage(1); }
if ($man) { pod2usage(-exitval => 0, -verbose => 2); } if ($man) { pod2usage(-exitval => 0, -verbose => 2); }
my $dir_err = SLUB::LZA::SIPBuilder::validate_directory($directory);
if (!defined $directory) { confess("you need to specify an IE directory, which needs to be archived"); } if (!defined $directory) { confess("you need to specify an IE directory, which needs to be archived"); }
if ((defined $directory) && ($dir_err ne '')) { confess($dir_err); } if ((defined $directory) && ($dir_err ne '')) { confess($dir_err); }
if ((defined $ppn) && (defined $noppn)) { confess("you can only specify either -ppn or -noppn"); } if ((defined $ppn) && (defined $noppn)) { confess("you can only specify either -ppn or -noppn"); }
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment