git-cvsserver.perl | 6 +++++- 1 files changed, 5 insertions(+), 1 deletions(-) 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 -- To unsubscribe from this list: send the line "unsubscribe git" in the body of a message to majordomo@xxxxxxxxxxxxxxx More majordomo info at http://vger.kernel.org/majordomo-info.html