return unless $has_dependencies;
$has_dependencies = 0;
+ chdir('cvsdir') or die $!;
foreach (glob('*.~[1-9]~'), glob('*/*.~[1-9]~')) {
my $fn;
($fn = $_) =~ s/\.~1~$//;
if ($fn eq $_) {
unlink($_);
- } elsif (-r $fn) {
- rename($_, $fn);
+ } elsif (-r $_) {
+ rename($_, $fn);
} else {
unlink($_);
unlink($fn);
}
}
+ chdir('..') or die $!;
}
sub usage