X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=c9725f271e5b804cb6581e02a859e8e2e335fbae;hb=9971e7bd96ea646b7921528a2f74edca508a5dc1;hp=f16494f91c9361c41813878ed9705d0aff533bbb;hpb=299bbec5a5628c3333cdf4ed45fed3e0c21ca753;p=spider.git

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index f16494f9..c9725f27 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -580,6 +580,12 @@ sub is_ak1a
 	my $self = shift;
 	return $self->{sort} eq 'A';
 }
+
+sub unset_passwd
+{
+	my $self = shift;
+	delete $self->{passwd};
+}
 1;
 __END__