aboutsummaryrefslogtreecommitdiffstats
path: root/misc
diff options
context:
space:
mode:
Diffstat (limited to 'misc')
-rwxr-xr-xmisc/deleteExpiredEntries.pl4
1 files changed, 2 insertions, 2 deletions
diff --git a/misc/deleteExpiredEntries.pl b/misc/deleteExpiredEntries.pl
index d4de6b6..3cbf570 100755
--- a/misc/deleteExpiredEntries.pl
+++ b/misc/deleteExpiredEntries.pl
@@ -53,14 +53,14 @@ die $entries->error."\n" if $entries->code;
$fp->done;
sub delete_entry {
- shift;
- my $obj = shift;
+ my ($mesg, $obj) = @_;
if (defined $obj and $obj->isa('Net::LDAP::Entry')) {
# print STDERR "Deleting DN ".$obj->dn."\n";
$obj->delete;
my $mesg = $obj->update($fp->ldap);
die $mesg->error."\n" if $mesg->code;
}
+ $mesg->pop_entry;
}