diff -r 6426cf731f25 -r 8934ba3404bc bin/ius-dav-htuserdel --- a/bin/ius-dav-htuserdel Fri Jul 15 14:03:55 2011 +0200 +++ b/bin/ius-dav-htuserdel Fri Jul 15 14:10:40 2011 +0200 @@ -27,14 +27,16 @@ GetOptions( 'u|user=s' => \$user, - "h|help" => sub { usage( -verbose => 0, -exitval => 0 ) }, - "m|man" => sub { + "h|help" => sub { usage( -verbose => 0, -exitval => 0 ) }, + "m|man" => sub { usage( -verbose => 2, -exitval => 0, -noperldoc => ( `perldoc -V 2>/dev/null`, $? != 0 )[-1] ); }, -) and defined $user or usage(); + ) + and defined $user + or usage(); exit userdel readconfig, $user;