375 |
log_system("$cvs delete '$path'", "cvs delete of file $path failed"); |
log_system("$cvs delete '$path'", "cvs delete of file $path failed"); |
376 |
cvs_commit($msg, @sub_commit, $path); |
cvs_commit($msg, @sub_commit, $path); |
377 |
log_system("$cvs update -dP '$path'", "cvs update -dP $path failed"); |
log_system("$cvs update -dP '$path'", "cvs update -dP $path failed"); |
378 |
|
undef $path; |
379 |
} else { |
} else { |
380 |
warn "#### remove file: $path"; |
warn "#### remove file: $path"; |
381 |
unlink($path) || die "can't delete $path: $!"; |
unlink($path) || die "can't delete $path: $!"; |