GetOptions(\%options,'debug|d+','help|h|?','man|m','quiet|q+','simulate|s+');
GetOptions(\%options,'debug|d+','help|h|?','man|m','quiet|q+','simulate|s+');
}
$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") {