Skip to content
Snippets Groups Projects
Commit db11df3a authored by Andreas Romeyke's avatar Andreas Romeyke
Browse files

- fixed exit codes if nothing was wrong

parent b1716cf3
No related branches found
No related tags found
No related merge requests found
......@@ -106,16 +106,16 @@ GetOptions(
"man" => \$man, # optional
"print_sip_version" => sub {
say "supported sip version is " . SLUB::LZA::SIPBuilderBagIt::get_sip_version();
exit 1;
exit 0;
}, # optional
"version" => sub {
say "version is " . $SLUB::LZA::SIPBuilderBagIt::VERSION;
exit 1;
exit 0;
}
) or pod2usage(2);
# help
if ($help) { pod2usage(1); exit 1; }
if ($help) { pod2usage(1); exit 0; }
# man
if ($man) { pod2usage(-exitval => 0, -verbose => 2); }
# save
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment