equal
deleted
inserted
replaced
22 "h|help" => sub { pod2usage(-exit => 0, -verbose => 1) }, |
22 "h|help" => sub { pod2usage(-exit => 0, -verbose => 1) }, |
23 "m|man" => sub { |
23 "m|man" => sub { |
24 pod2usage( |
24 pod2usage( |
25 -exit => 0, |
25 -exit => 0, |
26 -verbose => 2, |
26 -verbose => 2, |
27 -noperldoc => system("perldoc -V &>/dev/null") |
27 # "system('perldoc -V &>/dev/null')" appears shorter, but may not |
|
28 # do what you expect ( it still returns 0 on debian squeeze with |
|
29 # dash as system shell even if cannot find the command in $PATH) |
|
30 -noperldoc => system('perldoc -V >/dev/null 2>&1') |
28 ); |
31 ); |
29 }, |
32 }, |
30 ) |
33 ) |
31 and @ARGV |
34 and @ARGV |
32 or pod2usage; |
35 or pod2usage; |