1, $ed)
or die "SVN connection failed somewhere...\n";
}
+ $ed->{new_fetch} = 1;
return $self->make_log_entry($rev, [$parent], $ed);
}
not_found:
return $log_entry;
}
$ed = SVN::Git::Fetcher->new($self);
+ $ed->{new_fetch} = 1;
}
unless ($self->ra->gs_do_update($last_rev, $rev,
$self->{path}, 1, $ed)) {
my ($self, $rev, $parents, $ed) = @_;
my $untracked = $self->get_untracked($ed);
- return undef if ($ed->{nr} == 0 && scalar @$untracked == 0);
+ return undef if (! $ed->{new_fetch} && ! $ed->{nr} && ! @$untracked);
open my $un, '>>', "$self->{dir}/unhandled.log" or croak $!;
print $un "r$rev\n" or croak $!;