#!/usr/bin/perl -w
# File: simple.pl
# Created: Brooke Smith 2005 02 10
# Purpose: To create a small perl svn script that I can sent to the svn-users list to see
#	if they help work out why it craps out.


use SVN::Client;

my $ctx = new SVN::Client();

$SVN::Error::handler=sub(){
	my $lsvn_error_t = shift;

	print STDERR "SVN::Error::handler - object: $lsvn_error_t\n";
	print STDERR "  message: " . $lsvn_error_t -> message() . "\n";
};

print STDERR "Call ls(svn://eeow/new/tags, 'HEAD', 1)\n";

eval{$ctx -> ls('svn://eeow/new/tags', 'HEAD', 1);};
if ($@) {
	print STDERR "Error: $@\n";
	exit 1;
}