next if $source_inc{$dep};
unless unless $anc_inc{$dep};
my $unw_dr = { Name => $dep };
+
+
+ # Algorithm
+ # We do a history graph walk.
+ # In each iteration we get git-rev-list to find us
+ # one commit.
+
+ # We get git-rev-list to find us
+ send us a series of commits
+ # We look up each one.
my @prune;
my $pruned = sub {
my ($commit) = @_;