#!/usr/bin/perl

# search for '.cvsignore' files and svn propset accordingly

my $dir = shift;
(defined($dir) and (-d $dir)) or die "usage: $0 <dirname>\n";

use File::Find;

find(sub {
		m/^\.cvsignore$/ or next;
		# print "$File::Find::name\n";
		system(qw(svn propset svn:ignore -F .cvsignore ./)) and die;
	},
	$dir);