equal
deleted
inserted
replaced
25 |
25 |
26 my $user; |
26 my $user; |
27 |
27 |
28 GetOptions( |
28 GetOptions( |
29 'u|user=s' => \$user, |
29 'u|user=s' => \$user, |
30 "h|help" => sub { usage( -verbose => 0, -exitval => 0 ) }, |
30 "h|help" => sub { usage( -verbose => 0, -exitval => 0 ) }, |
31 "m|man" => sub { |
31 "m|man" => sub { |
32 usage( |
32 usage( |
33 -verbose => 2, |
33 -verbose => 2, |
34 -exitval => 0, |
34 -exitval => 0, |
35 -noperldoc => ( `perldoc -V 2>/dev/null`, $? != 0 )[-1] |
35 -noperldoc => ( `perldoc -V 2>/dev/null`, $? != 0 )[-1] |
36 ); |
36 ); |
37 }, |
37 }, |
38 ) and defined $user or usage(); |
38 ) |
|
39 and defined $user |
|
40 or usage(); |
39 |
41 |
40 exit userdel readconfig, $user; |
42 exit userdel readconfig, $user; |