# HG changeset patch
# User Matthias Förste <foerste@schlittermann.de>
# 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<days>
 
+TODO
+
 =item B<--key-counter-end> I<integer>
 
 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')
             );
         },
       )