git-svn.perl: perform deletions before anything else

If we delete a file and recreate it as a directory in a single commit, we have to tell the server about the deletion first or else we'll get "RA layer request failed: Server sent unexpected return value (405 Method Not Allowed) in response to MKCOL request" Signed-off-by: Steven Walter <stevenrwalter@gmail.com> Acked-by: Eric Wong <normalperson@yhbt.net>

Steven Walter committed Feb 9, 2012 at 15:52 UTC 5ec514bd2f9b18463886df372ea1412fc61467de
1 file changed +1 -1
git-svn.perl
+1 -1
@@ -5381,7 +5381,7 @@ sub DESTROY {
5381 sub apply_diff {
5382 my ($self) = @_;
5383 my $mods = $self->{mods};
5384 - my %o = ( D => 1, R => 0, C => -1, A => 3, M => 3, T => 3 );
5384 + my %o = ( D => 0, C => 1, R => 2, A => 3, M => 4, T => 5 );
5385 foreach my $m (sort { $o{$a->{chg}} <=> $o{$b->{chg}} } @$mods) {
5386 my $f = $m->{chg};
5387 if (defined $o{$f}) {