#!/usr/bin/perl -w
#
# To show a problem with the Perl SWIG binding for SVN
#
#
use SVN::Client;

my $client = new SVN::Client;
my $path;
my $root;
my $directory = '.';
$client->info($directory, 
      undef, undef, # revision and peg revision.
      sub {         # call back, passed svn_info_t as 2nd arg
                    # Only gets called if the data is found.
        $path = shift;
        my $info = shift;
        $root = $info->repos_root_URL();
      },
      0             # don't recurse
      ); 

print "Path: $path, root: $root\n";

