view release on metacpan or  search on metacpan

lib/SVN/Analysis.pm  view on Meta::CPAN

387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
my $failures = 0;
while ($sth_find_sub_roots->fetch()) {
        $failures++;
        warn "failure: entity at $ent_path contains sub-entity at $broken_path";
}
die "sub-entities indicate bad entity recognition" if $failures;
 
# Second, ensure that the lop and prepend paths are consistent
# throughout the tree.
# TODO - Although this may be true as a corollary of rel_path
# being nonzero length throughout the entity tree, so we're
# skipping the check until we're sure it's necessary.
 
# TODO - Code?
 
# Okay, it's good.
# Let's propagate its entity type and name throughout its tree.
 
my $sth_update_entity = $self->dbh()->prepare_cached("
        UPDATE dir