X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=FS%2FFS%2FAuth%2Finternal.pm;h=eea4870d7f43e7489301e3128be6dcbbc0bde415;hb=f4ee374e9bbb313234278c7231c046f8e07086f0;hp=f6d1a008612ea09f5c13660f4d14ccaae61ac9ff;hpb=56f9dffcd409d2a10e7a2cbe4c15b397f6f3abe1;p=freeside.git

diff --git a/FS/FS/Auth/internal.pm b/FS/FS/Auth/internal.pm
index f6d1a0086..eea4870d7 100644
--- a/FS/FS/Auth/internal.pm
+++ b/FS/FS/Auth/internal.pm
@@ -47,6 +47,9 @@ sub autocreate { 0; }
 sub change_password {
   my($self, $access_user, $new_password) = @_;
 
+  # do nothing if the password is unchanged
+  return if $self->authenticate( $access_user, $new_password );
+
   $self->change_password_fields( $access_user, $new_password );
 
   $access_user->replace;