[Ssh-sftp-perl-users] problem with svn+ssh

[Isabelle C. <isa...@in...>]

Hi,

I have a problem using Net::SSH::Perl module.

I have a script that logs to other machines and make various checkouts 
from Subversion repositories. The problem is that anonymous checkouts 
succeed, but checkouts using svn+ssh fail.
These checkouts are working if I don't use Net::SSH::Perl, but I'm sure 
there is a way I can find a solution with this module. Maybe it's just a 
missing option.

Here is part of my code:

    my $ssh = Net::SSH::Perl->new($host,
                      protocol => '2,1',
                      options  => ["BatchMode yes",
                           "ForwardAgent yes",
                           ]
                      );
    $ssh->login($user);
# then, this anonymous checkout works:
cmd($ssh, $host, "svn co svn://scm.gforge.inria.fr/svn/xxxxxxxx");
# but the checkout through svn+ssh fails:
cmd($ssh, $host, "svn co 
svn+ssh://toto\@scm.gforge.inria.fr/svn/xxxxxxxxx");

He is what I get :

____________
Connecting to xxxx, port 22.
Remote version string: SSH-1.99-OpenSSH_4.5

Remote protocol version 1.99, remote software version OpenSSH_4.5
Net::SSH::Perl Version 1.30, protocol version 2.0.
No compat match: OpenSSH_4.5.
Connection established.
Sent key-exchange init (KEXINIT), wait response.
Algorithms, c->s: 3des-cbc hmac-sha1 none
Algorithms, s->c: 3des-cbc hmac-sha1 none
Entering Diffie-Hellman Group 1 key exchange.
Sent DH public key, waiting for reply.
Received host key, type 'ssh-dss'.
Host 'pinot' is known and matches the host key.
Computing shared secret key.
Verifying server signature.
Waiting for NEWKEYS message.
Enabling incoming encryption/MAC/compression.
Send NEWKEYS, enable outgoing encryption/MAC/compression.
Sending request for user-authentication service.
Service accepted: ssh-userauth.
Trying empty user-authentication request.
Authentication methods that can continue: publickey.
Next method to try is publickey.
Publickey: testing agent key '/home/toto/.ssh/id_rsa'
Public key is accepted, signing data.
Key fingerprint: a6:b9:f5:5b:d8:91:57:df:dexxxxxxxxxxx
Login completed, opening dummy shell channel.
channel 0: new [client-session]
Requesting channel_open for channel 0.
channel 0: open confirm rwindow 0 rmax 32768
Got channel open confirmation, requesting shell.
Requesting service shell on channel 0.
channel 1: new [client-session]
Requesting channel_open for channel 1.
Entering interactive session.
Sending command: svn co svn+ssh://toto@scm.gforge.inria.fr/svn/xxxxxx
Requesting service exec on channel 1.
channel 1: open confirm rwindow 0 rmax 32768
input_channel_request: rtype exit-status reply 0
channel 1: rcvd eof
channel 1: output open -> drain
channel 1: rcvd close
channel 1: input open -> closed
channel 1: close_read
channel 1: obuf empty
channel 1: output drain -> closed
channel 1: close_write
channel 1: send close
channel 1: full closed

Connection closed by 131.254.xxx
svn: Connection closed unexpectedly
__________

If I don't use Net::SSH::Perl, this works fine:

$cmd = "svn co svn+ssh://toto\@scm.gforge.inria.fr/svn/xxxxx";
$cmd = "ssh -o 'BatchMode yes' $host  \"$cmd\"";
    open(OUT,"$cmd 2>&1 |") or die "cannot fork - '$cmd': $!";
    while(<OUT>) {
         print "<$host>\t$_";
     }
    close(OUT);

But I wish I could use Net::SSH::Perl. does anyone know what's wrong 
with my code ? Do I need to use Net::SSH::Perl::Agent ?

Thank you,
/ Isabelle