#!/usr/bin/perl

use SVN::Core;
use SVN::Repos;
use SVN::Fs;

use strict;

die "usage setuuid <path> <uuid>\n" if (@ARGV < 1) ;

my $repos = SVN::Repos::open ($ARGV[0]);
my $fs    = $repos->fs;
print $fs -> get_uuid (), " -> $ARGV[1]\n" ;
$fs -> set_uuid ($ARGV[1]) if ($ARGV[1]) ;