Merge branch 'ew/http-do-not-forget-to-call-curl-multi-remove-handle' into maint

diff --git a/perl/Git/SVN.pm b/perl/Git/SVN.pm
index d94d01cfdc8e4bcae2673b2421ef6e48fd69fb24..018beb85a09d6ef524c326c3ec947982c05bf556 100644 (file)
--- a/perl/Git/SVN.pm
+++ b/perl/Git/SVN.pm
@@ -97,8 +97,12 @@ sub resolve_local_globs {
                                    "existing: $existing\n",
                                    " globbed: $refname\n";
                        }
-                       my $u = (::cmt_metadata("$refname"))[0] or die
-                           "$refname: no associated commit metadata\n";
+                       my $u = (::cmt_metadata("$refname"))[0];
+                       if (!defined($u)) {
+                               warn
+"W: $refname: no associated commit metadata from SVN, skipping\n";
+                               next;
+                       }
                        $u =~ s!^\Q$url\E(/|$)!! or die
                          "$refname: '$url' not found in '$u'\n";
                        if ($pathname ne $u) {
@@ -1905,15 +1909,22 @@ sub make_log_entry {
 
        my @parents = @$parents;
        my $props = $ed->{dir_prop}{$self->path};
-       if ( $props->{"svk:merge"} ) {
-               $self->find_extra_svk_parents($props->{"svk:merge"}, \@parents);
-       }
-       if ( $props->{"svn:mergeinfo"} ) {
-               my $mi_changes = $self->mergeinfo_changes
-                       ($parent_path, $parent_rev,
-                        $self->path, $rev,
-                        $props->{"svn:mergeinfo"});
-               $self->find_extra_svn_parents($mi_changes, \@parents);
+       if ($self->follow_parent) {
+               my $tickets = $props->{"svk:merge"};
+               if ($tickets) {
+                       $self->find_extra_svk_parents($tickets, \@parents);
+               }
+
+               my $mergeinfo_prop = $props->{"svn:mergeinfo"};
+               if ($mergeinfo_prop) {
+                       my $mi_changes = $self->mergeinfo_changes(
+                                               $parent_path,
+                                               $parent_rev,
+                                               $self->path,
+                                               $rev,
+                                               $mergeinfo_prop);
+                       $self->find_extra_svn_parents($mi_changes, \@parents);
+               }
        }
 
        open my $un, '>>', "$self->{dir}/unhandled.log" or croak $!;