#!/usr/bin/perl
use strict;
use warnings;
use File::Temp qw(tempdir);
use SVN::Client;

my $tempdir = tempdir(CLEANUP => 0);
system('svnadmin', 'create', $tempdir);
my $message = "test";
my $svn = SVN::Client->new();
eval {
        $svn->ls("file://$tempdir/foo/bar", 'HEAD', 0);
    };
$svn->log_msg(sub { $_[0] = \$message; return 0; });
eval {
	$svn->mkdir("file://$tempdir/foo/bar");
};
$svn->log_msg(undef);