GetOptions(\%options,'debug|d+','help|h|?','man|m','quiet|q+','simulate|s+');
GetOptions(\%options,'debug|d+','help|h|?','man|m','quiet|q+','simulate|s+');
pod2usage({verbose=>2}) if $options{man};
$DEBUG = $options{debug};
# Figure out what we're doing
pod2usage({verbose=>2}) if $options{man};
$DEBUG = $options{debug};
# Figure out what we're doing
$tododb = full_readlink($tododb);
my $base_dir = dirname($tododb);
my $tododb_name = basename($tododb);
if (not -e "$base_dir/.svn") {
$tododb = full_readlink($tododb);
my $base_dir = dirname($tododb);
my $tododb_name = basename($tododb);
if (not -e "$base_dir/.svn") {