Failed attempt to get log messages using the Perl bindings.

[Martin Tomes <li...@tomes.org>]

I have 0.37.0 installed with the Python and Perl bindings.  viewcvs 
works with subversion.  I am using Apache 2 as the server.  Today I 
tried to use the Perl bindings to get at the repository content, I got 
SVN::Client to log in and give me the content of a file but I cannot get 
the log.  Whenever I run the Perl program Apache starts using loads of 
CPU and I get nothing back.  I have to shut down Apache, to a recoved 
and start it up again.  This is all running on RedHat 8.0 on a Dell dual 
processor server.

This is my program, I changed it to use Ra, but I get the same result 
using the log method on SVN::Client:

#!/usr/bin/perl

use strict;
use SVN::Ra;

my $repo = 'http://syrah.controls.eurotherm.co.uk:81/repos/controls/';

my $r = new SVN::Ra(
  url  => $repo,
  auth => [SVN::Client::get_simple_provider(),
           SVN::Client::get_simple_prompt_provider(\&simple_prompt, 2),
           SVN::Client::get_username_provider()]
        );

sub simple_prompt {
  my $cred = shift;
  my $realm = shift;
  my $default_username = shift;
  my $may_save = shift;
  my $pool = shift;
  $cred->username('********');
  $cred->password('*******');
}

sub show_log {
  my $changed_paths = shift;
  my $revision = shift;
  my $author = shift;
  my $date = shift;
  my $message = shift;
  my $pool = shift;

  print STDOUT "Rev: $revision\n\n$message\n";
}

$r->get_log(['itools/trunk/dbuildp.bat'], 'HEAD', 1, 1, 0, \&show_log);


Any ideas?

-- 
Martin Tomes
echo 'Martin x Tomes at controls x eurotherm x co x uk'\
  | sed -e 's/ x /\./g' -e 's/ at /@/'


---------------------------------------------------------------------
To unsubscribe, e-mail: users-unsubscribe@subversion.tigris.org
For additional commands, e-mail: users-help@subversion.tigris.org