230 |
my $dir = shift; |
my $dir = shift; |
231 |
die "entries expects directory argument!" unless -d $dir; |
die "entries expects directory argument!" unless -d $dir; |
232 |
my @entries; |
my @entries; |
233 |
open(my $fh, "$dir/CVS/Entries") || return 0; |
open(my $fh, "./$dir/CVS/Entries") || return 0; |
234 |
while(<$fh>) { |
while(<$fh>) { |
235 |
if ( m{^D/([^/]+)}, ) { |
if ( m{^D/([^/]+)}, ) { |
236 |
my $sub_dir = $1; |
my $sub_dir = $1; |
257 |
$dir .= "/"; |
$dir .= "/"; |
258 |
} |
} |
259 |
|
|
260 |
open(my $fh, "$dir/CVS/Entries") || return 0; #die "no entries file: $dir/CVS/Entries"; |
open(my $fh, "./$dir/CVS/Entries") || return 0; #die "no entries file: $dir/CVS/Entries"; |
261 |
while(<$fh>) { |
while(<$fh>) { |
262 |
return 1 if (m{^/$file/}); |
return 1 if (m{^/$file/}); |
263 |
} |
} |