diff options
| author | Junio C Hamano <gitster@pobox.com> | 2008-08-21 01:54:49 -0700 |
|---|---|---|
| committer | Junio C Hamano <gitster@pobox.com> | 2008-08-21 01:54:49 -0700 |
| commit | 436edc6eae34b5b70371d87239d7883f41b705a2 (patch) | |
| tree | c35c4532c49914f1dc69e62eda7f5157446cf5ce /git-svn.perl | |
| parent | 1a1fcf4abeb2ed4ef6075970788711cf62405158 (diff) | |
| parent | a81892dd8c37b6f13793739721b520fee3ce4c2c (diff) | |
| download | git-436edc6eae34b5b70371d87239d7883f41b705a2.tar.gz | |
Merge branch 'maint'
* maint:
compat/snprintf.c: handle snprintf's that always return the # chars transmitted
git-svn: fix dcommit to urls with embedded usernames
revision.h: make show_early_output an extern which is defined in revision.c
Diffstat (limited to 'git-svn.perl')
| -rwxr-xr-x | git-svn.perl | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/git-svn.perl b/git-svn.perl index 099fd02b3f..7a1d26db8b 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: ", |
