do actually return the return code from 'userdel' foerste
authorMatthias Förste <foerste@schlittermann.de>
Mon, 18 Jul 2011 15:11:04 +0200
branchfoerste
changeset 32 647b45aaf4da
parent 31 df24e0f202f1
child 33 be97a7cbe807
do actually return the return code from 'userdel'
lib/Ius/Dav/Htpasswd.pm
--- a/lib/Ius/Dav/Htpasswd.pm	Mon Jul 18 14:06:28 2011 +0200
+++ b/lib/Ius/Dav/Htpasswd.pm	Mon Jul 18 15:11:04 2011 +0200
@@ -156,7 +156,7 @@
 
     my ( $conf, $user ) = @_;
 
-    my $rc;
+    my $rc = 0;
 
     for (qw(dav_base_local htpasswd conf_d)) {
         die "Can't determine '$_' - please check configuration"
@@ -184,6 +184,8 @@
     0 == system qw(apache2ctl graceful)
       or $rc = -1 and warn "Can't 'apache2ctl graceful'!";
 
+    return $rc;
+
 }
 
 sub userexpiry {