X-Git-Url: http://pileus.org/git/?a=blobdiff_plain;f=git-cvsimport.perl;h=1ad20ac96450d100fbce7e992ec65972a8c0a7ba;hb=a6ca8c62467570d5d227eba4f2b838ce4b9940e8;hp=593832d813d88971aea00c8052c451f66e209830;hpb=32f4cc49ae742e496355bea93c7b9481336f12cd;p=~andy%2Fgit

diff --git a/git-cvsimport.perl b/git-cvsimport.perl
index 593832d81..1ad20ac96 100755
--- a/git-cvsimport.perl
+++ b/git-cvsimport.perl
@@ -238,7 +238,9 @@ sub conn {
 		}
 		my $rr = ":pserver:$user\@$serv:$port$repo";
 
-		unless ($pass) {
+		if ($pass) {
+			$pass = $self->_scramble($pass);
+		} else {
 			open(H,$ENV{'HOME'}."/.cvspass") and do {
 				# :pserver:cvs@mea.tmt.tele.fi:/cvsroot/zmailer Ah<Z
 				while (<H>) {
@@ -251,10 +253,9 @@ sub conn {
 					}
 				}
 			};
+			$pass = "A" unless $pass;
 		}
 
-		$pass = $self->_scramble($pass);
-
 		my ($s, $rep);
 		if ($proxyhost) {