perl bindings to query locks

I'm trying to use the perl bindings to do the equivelent of 'svnlook lock x y'.
Can someone help!

Cpan documents 'SVN::SVNLook', but I guess this just calls svnlook under the
hood anyway? I wanted to use the API directly. Is there some documentation? I'm
on win32.

I kinda made up the following:

$paramrepo = shift;
$parampath = shift;
$paramuser = shift;

$repo = SVN::Repos::open($paramrepo);
$fs = $repo->fs;

$lock = $fs->get_lock($parampath);

But it doesn't work. does 'get_lock' exist??

Thanks,

John

---------------------------------------------------------------------
To unsubscribe, e-mail: users-unsubscribe@subversion.tigris.org
For additional commands, e-mail: users-help@subversion.tigris.org
Received on Fri Jun 3 11:23:40 2005