git-cvsserver.perl | 6 +++++-
1 files changed, 5 insertions(+), 1 deletions(-)
Show changes to git-cvsserver.perl +5 −2
diff --git a/git-cvsserver.perl b/git-cvsserver.perl
index 46e5fdb..01c5b21 100755
--- a/git-cvsserver.perl
+++ b/git-cvsserver.perl
@@ -235,11 +235,15 @@ if ($state->{method} eq 'pserver') {
exit 1;
}
+ if (length($password) > 0) {
+ $password = descramble($password);
+ }
+
my $auth_ok;
open my $passwd, "<", $authdb or die $!;
while (<$passwd>) {
if (m{^\Q$user\E:(.*)}) {
- if (crypt($user, descramble($password)) eq $1) {
+ if (crypt($user, $password) eq $1) {
$auth_ok = 1;
}
};
--
1.7.2.rc1.dirty