equal
deleted
inserted
replaced
37 "check" => sub { $cmd = "check" }, |
37 "check" => sub { $cmd = "check" }, |
38 "h|help" => sub { pod2usage(-exit => 0, -verbose => 1) }, |
38 "h|help" => sub { pod2usage(-exit => 0, -verbose => 1) }, |
39 "m|man" => sub { |
39 "m|man" => sub { |
40 pod2usage( |
40 pod2usage( |
41 -exit => 0, |
41 -exit => 0, |
42 -noperldoc => system("perldoc -V &>/dev/null"), |
42 # "system('perldoc -V &>/dev/null')" appears shorter, but may not |
|
43 # do what you expect ( it still returns 0 on debian squeeze with |
|
44 # dash as system shell even if cannot find the command in $PATH) |
|
45 -noperldoc => system('perldoc -V >/dev/null 2>&1'), |
43 -verbose => 2 |
46 -verbose => 2 |
44 ); |
47 ); |
45 }, |
48 }, |
46 ) |
49 ) |
47 and @ARGV |
50 and @ARGV |