Re: Perl binding question

John <jsparrow <at> ecclescollege.ac.uk> writes:
> $repo = SVN::Repos::open($paramrepo);
> $fs = $repo->fs;
>
> # $pool isn't defined - is this as bad as I think?
>
> $lock = SVN::_Fs::svn_fs_get_lock($fs,$parampath,$pool);
>
> if ($lock)
> {
> # how do I query $lock?????
> print $lock, "\n";
> } else
> {
> print "no lock\n";
> }
>
> This seems to work (should I be worried I don't have a 'pool' setup - and the
> var is just undefined?).

Just leave the pool empty it will use a default one for you. Read SVN::Core
document about pool handling.

> My second question is, how do I get data out of $lock ?!?!?! $lock->owner would
> seem logical, but it doesn't work.

There's simply no object accessor declared for lock object. You can do the
raw and long version of accessor for now:
SVN::_Core::svn_lock_t_path_get($lock).

Cheers,
CLK

---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@subversion.tigris.org
For additional commands, e-mail: dev-help@subversion.tigris.org
Received on Wed Jun 8 19:01:12 2005