if (@status > 1) { warn'Strange! cvs status returned more than one line?'};

if (-d dirname $fand$status[0] !~ m/Status: Unknown$/

and$status[0] !~ m/^File: no file /) {

$dirty = 1;

warn"File $f is already known in your CVS checkout -- perhaps it has been added by another user. Or this may indicate that it exists on a different branch. If this is the case, use -f to force the merge.\n";