# HG changeset patch # User Matthias Förste # Date 1306227933 -7200 # Node ID 30bd047cd0573d7fe181fdd0a279da808e37ed95 # Parent 5a51a3757f5e7cfcb335c5cc77e1b709af1c5c3f fixed -m for systems without perldoc; fixed evil typo diff -r 5a51a3757f5e -r 30bd047cd057 bin/dnssec-keytool --- a/bin/dnssec-keytool Tue May 24 09:40:39 2011 +0200 +++ b/bin/dnssec-keytool Tue May 24 11:05:33 2011 +0200 @@ -39,7 +39,10 @@ "m|man" => sub { pod2usage( -exit => 0, - -noperldoc => system("perldoc -V &>/dev/null"), + # "system('perldoc -V &>/dev/null')" appears shorter, but may not + # do what you expect ( it still returns 0 on debian squeeze with + # dash as system shell even if cannot find the command in $PATH) + -noperldoc => system('perldoc -V >/dev/null 2>&1'), -verbose => 2 ); }, diff -r 5a51a3757f5e -r 30bd047cd057 bin/update-serial --- a/bin/update-serial Tue May 24 09:40:39 2011 +0200 +++ b/bin/update-serial Tue May 24 11:05:33 2011 +0200 @@ -39,14 +39,17 @@ GetOptions( "sign-alert-time=i" => \$opt{sign_alert_time}, "key-counter-end=i" => \$opt{key_counter_end}, - "h|help" => sub { pod2usage(-exit 0, -verbose => 1) }, + "h|help" => sub { pod2usage(-exit => 0, -verbose => 1) }, "m|man" => sub { pod2usage( - -exit 0, + -exit => 0, -verbose => 2, - -noperldoc => system("perldoc -v &>/dev/null") + # "system('perldoc -V &>/dev/null')" appears shorter, but may not + # do what you expect ( it still returns 0 on debian squeeze with + # dash as system shell even if cannot find the command in $PATH) + -noperldoc => system('perldoc -V >/dev/null 2>&1') ); - }, + } ) or pod2usage; # merge the config and the defined options from commandline @@ -511,6 +514,8 @@ __END__ +=pod + =head1 NAME update-serial - updates the serial numbers and re-signs the zone files @@ -530,11 +535,12 @@ =item B<--sign-alert-time> I +TODO + =item B<--key-counter-end> I Maximum number if key usages. - =back The common options B<-h>|B<--help>|B<-m>|B<--man> are supported. diff -r 5a51a3757f5e -r 30bd047cd057 bin/zone-ls --- a/bin/zone-ls Tue May 24 09:40:39 2011 +0200 +++ b/bin/zone-ls Tue May 24 11:05:33 2011 +0200 @@ -23,7 +23,10 @@ pod2usage( -exit => 0, -verbose => 2, - -noperldoc => system("perldoc -V &>/dev/null") + # "system('perldoc -V &>/dev/null')" appears shorter, but may not + # do what you expect ( it still returns 0 on debian squeeze with + # dash as system shell even if cannot find the command in $PATH) + -noperldoc => system('perldoc -V >/dev/null 2>&1') ); }, ) or pod2usage; diff -r 5a51a3757f5e -r 30bd047cd057 bin/zone-mk --- a/bin/zone-mk Tue May 24 09:40:39 2011 +0200 +++ b/bin/zone-mk Tue May 24 11:05:33 2011 +0200 @@ -27,7 +27,10 @@ "m|man" => sub { pod2usage( -verbose => 2, - -noperldoc => system("perldoc -V &>/dev/null"), + # "system('perldoc -V &>/dev/null')" appears shorter, but may not + # do what you expect ( it still returns 0 on debian squeeze with + # dash as system shell even if cannot find the command in $PATH) + -noperldoc => system('perldoc -V >/dev/null 2>&1'), -exit => 0 ); }, diff -r 5a51a3757f5e -r 30bd047cd057 bin/zone-rm --- a/bin/zone-rm Tue May 24 09:40:39 2011 +0200 +++ b/bin/zone-rm Tue May 24 11:05:33 2011 +0200 @@ -24,7 +24,10 @@ pod2usage( -exit => 0, -verbose => 2, - -noperldoc => system("perldoc -V &>/dev/null") + # "system('perldoc -V &>/dev/null')" appears shorter, but may not + # do what you expect ( it still returns 0 on debian squeeze with + # dash as system shell even if cannot find the command in $PATH) + -noperldoc => system('perldoc -V >/dev/null 2>&1') ); }, )