diff options
| author | Eric Wong <normalperson@yhbt.net> | 2007-02-14 21:32:21 (GMT) |
|---|---|---|
| committer | Eric Wong <normalperson@yhbt.net> | 2007-02-23 08:57:12 (GMT) |
| commit | 28710f74ea1f1d8a46c867ddd471dae3d7c3a664 (patch) | |
| tree | ab36b5a1d34701e1786c684e068f850a05f4a3f9 /git-svn.perl | |
| parent | dadc6d2a0904e55ac5a5a810dffac4d44fff0b66 (diff) | |
| download | git-28710f74ea1f1d8a46c867ddd471dae3d7c3a664.zip git-28710f74ea1f1d8a46c867ddd471dae3d7c3a664.tar.gz git-28710f74ea1f1d8a46c867ddd471dae3d7c3a664.tar.bz2 | |
git-svn: brown paper bag fixes
* avoid skipping modification-only changes in fetch
* correctly fetch when we only have branches and tags
to glob from (no fetch keys defined)
Signed-off-by: Eric Wong <normalperson@yhbt.net>
Diffstat (limited to 'git-svn.perl')
| -rwxr-xr-x | git-svn.perl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/git-svn.perl b/git-svn.perl index b2931cd..24ca308 100755 --- 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); } |