equal
deleted
inserted
replaced
28 Getopt::Long::Configure qw(Bundling); |
28 Getopt::Long::Configure qw(Bundling); |
29 GetOptions( |
29 GetOptions( |
30 "y|yes!" => \$o{yes}, |
30 "y|yes!" => \$o{yes}, |
31 "v|verbose!" => \$o{verbose}, |
31 "v|verbose!" => \$o{verbose}, |
32 "c|check" => \$o{check}, |
32 "c|check" => \$o{check}, |
33 "h|help" => sub { pod2usage(-verbose => 1, -exit 0) }, |
33 "h|help" => sub { pod2usage(-verbose => 1, -exit => 0) }, |
34 "m|man" => sub { |
34 "m|man" => sub { |
35 pod2usage( |
35 pod2usage( |
36 -verbose => 2, |
36 -verbose => 2, |
37 -exit 0, |
37 -exit => 0, |
38 -noperldoc => system( |
38 -noperldoc => system( |
39 "perldoc -V 1>/dev/null |
39 "perldoc -V 1>/dev/null |
40 2>&1" |
40 2>&1" |
41 ) |
41 ) |
42 ); |
42 ); |