Failed attempt to get log messages using the Perl bindings.

I got no response from the users list so I'm trying the dev list,
apologies to those subscribed to both.

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, do a recover
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: dev-unsubscribe@subversion.tigris.org
For additional commands, e-mail: dev-help@subversion.tigris.org