gist: 6442


  
    
      git-svn-dcommit-with-username.patch
    
    
      
      
        embed
        
      
      
      
      raw
    
  
  
  
    
      
        
          
            
            1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

          
          
            
            
              diff --git a/git-svn.perl b/git-svn.perl
index 099fd02..7a1d26d 100755
--- a/git-svn.perl
+++ b/git-svn.perl
@@ -421,7 +421,7 @@ sub cmd_dcommit {
   $head ||= 'HEAD';
   my @refs;
   my ($url, $rev, $uuid, $gs) = working_head_info($head, \@refs);
-  $url = $_commit_url if defined $_commit_url;
+  $url = defined $_commit_url ? $_commit_url : $gs->full_url;
   my $last_rev = $_revision if defined $_revision;
   if ($url) {
     print "Committing to $url ...\n";
@@ -437,6 +437,8 @@ sub cmd_dcommit {
          "If these changes depend on each other, re-running ",
          "without --no-rebase may be required."
   }
+  my $expect_url = $url;
+  Git::SVN::remove_username($expect_url);
   while (1) {
     my $d = shift @$linear_refs or last;
     unless (defined $last_rev) {
@@ -511,9 +513,9 @@ sub cmd_dcommit {
             $gs->refname,
             "\nBefore dcommitting";
         }
-        if ($url_ ne $url) {
+        if ($url_ ne $expect_url) {
           fatal "URL mismatch after rebase: ",
-                "$url_ != $url";
+                "$url_ != $expect_url";
         }
         if ($uuid_ ne $uuid) {
           fatal "uuid mismatch after rebase: ",