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