git-svn: brown paper bag fixes

diff --git a/git-svn.perl b/git-svn.perl
index b2931cd5aa99b6a0cf08fe5ba8485ad76b39847c..24ca3087d699ed6e4e1e65f2b69139d82b8bb7fb 100755 (executable)
--- a/git-svn.perl
+++ b/git-svn.perl
@@ -782,7 +782,7 @@ sub fetch_all {
        my $ra = Git::SVN::Ra->new($url);
        my $uuid = $ra->get_uuid;
        my $head = $ra->get_latest_revnum;
-       my $base = $head;
+       my $base = defined $fetch ? $head : 0;
 
        # read the max revs for wildcard expansion (branches/*, tags/*)
        foreach my $t (qw/branches tags/) {
@@ -2901,7 +2901,8 @@ sub match_globs {
                        }
                }
                foreach (keys %$paths) {
-                       if (/$g->{path}->{left_regex}/) {
+                       if (/$g->{path}->{left_regex}/ &&
+                           !/$g->{path}->{regex}/) {
                                next if $paths->{$_}->{action} !~ /^[AR]$/;
                                get_dir_check($self, $exists, $g, $r);
                        }