--- a/sbin/zone-rm Thu Jun 30 15:19:33 2011 +0200
+++ b/sbin/zone-rm Thu Jun 30 16:24:32 2011 +0200
@@ -22,11 +22,12 @@
"h|help" => sub { pod2usage(-exit => 0, -verbose => 1) },
"m|man" => sub {
pod2usage(
- -exit => 0,
- -verbose => 2,
- # "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)
+ -exit => 0,
+ -verbose => 2,
+
+ # "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')
);
},