use strict;
use warnings;

use SVN::Client;
use File::Path qw(rmtree);

my $repo = 'file:///nfs/pdx/disks/mdo_cttr_prod/dev/tmp/repo_test/repo1';
my $path = '/nfs/pdx/disks/mdo_cttr_prod/dev/tmp/repo_test/wc1';

my $client = new SVN::Client(
    auth => [ SVN::Client::get_username_provider() ],
);

# checkout a working copy
my $rev = $client->checkout( $repo, $path, 'HEAD', 0 );

# eliminate the client
$client = undef;

# attempt to remove wc
# this produces the warning for being unable to remove directory
rmtree $path;