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