104 |
next if in_entries($curr_dir); |
next if in_entries($curr_dir); |
105 |
next if ( -e "$curr_dir/CVS" ); |
next if ( -e "$curr_dir/CVS" ); |
106 |
|
|
107 |
log_system( "$cvs add '$curr_dir'", "cvs add of $curr_dir failed" ); |
log_system( "touch '$curr_dir/.keepme'", "creation of .keepme file (to keep $curr_dir alive in CVS) failed" ); |
108 |
|
log_system( "$cvs add '$curr_dir' '$curr_dir/.keepme'", "cvs add of $curr_dir failed" ); |
109 |
} |
} |
110 |
} |
} |
111 |
|
|
263 |
open( my $fh, "./$dir/CVS/Entries" ) |
open( my $fh, "./$dir/CVS/Entries" ) |
264 |
|| return 0; #die "no entries file: $dir/CVS/Entries"; |
|| return 0; #die "no entries file: $dir/CVS/Entries"; |
265 |
while (<$fh>) { |
while (<$fh>) { |
266 |
return 1 if (m{^/$file/}); |
return 1 if (m{^D?/$file/}); |
267 |
} |
} |
268 |
close($fh); |
close($fh); |
269 |
return 0; |
return 0; |