bin/ius-dav-htuserdel
branchfoerste
changeset 25 8934ba3404bc
parent 16 44cdd9d6fd8c
child 57 2b8cf6a91d0b
--- 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;