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