equal
deleted
inserted
replaced
20 GetOptions( |
20 GetOptions( |
21 "i|interactive!" => \$opt_interactive, |
21 "i|interactive!" => \$opt_interactive, |
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 # "system('perldoc -V &>/dev/null')" appears shorter, but may not |
27 |
28 # do what you expect ( it still returns 0 on debian squeeze with |
28 # "system('perldoc -V &>/dev/null')" appears shorter, but may not |
29 # dash as system shell even if cannot find the command in $PATH) |
29 # do what you expect ( it still returns 0 on debian squeeze with |
|
30 # dash as system shell even if cannot find the command in $PATH) |
30 -noperldoc => system('perldoc -V >/dev/null 2>&1') |
31 -noperldoc => system('perldoc -V >/dev/null 2>&1') |
31 ); |
32 ); |
32 }, |
33 }, |
33 ) |
34 ) |
34 and @ARGV |
35 and @ARGV |