#!/usr/bin/perl
use strict;
use warnings;
use SVN::Core;
use SVN::Repos;
use SVN::Fs;

my $localpath = "/var/svn/subversion/narfs";
my $path = "foo";
my $ispath;

for (my $i = 0; $i < 1000; $i++){
	my $repos = SVN::Repos::open($localpath) or die "no such repo";
	my $fs    = $repos->fs;
	
	$ispath = $repos->fs->revision_root( $fs->youngest_rev )->is_dir($path);

	undef($fs);
	undef($repos);
}

print "done: $ispath\n";

sleep 5;