#!perl
use File::Find;
use File::Path;
die "USAGE: $0 DIRECTORY\n" unless(-d $ARGV[0]);
find({ wanted => \&deleteSVN, no_chdir => 1 }, $ARGV[0]);
sub deleteSVN {
if($_ =~ m|\.svn$|){
eval { rmtree($_, 1) };
print STDERR "Could not delete .svn directory $_: $@\n" if($@);
}
}