--- 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;