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