Re: [PATCH] git-svnimport: Improved detection of merges.

From

FFFlorian Forster <octo@verplant.org>

Date

Jun 1, 2006, 09:36 UTC

Message-ID

<20060601093603.GY2315@verplant.org>

In-Reply-To

<20060601092238.GB9333@hand.yhbt.net>

Hi,

On Thu, Jun 01, 2006 at 02:22:39AM -0700, Eric Wong wrote:

> Nope, I haven't seen that nor Florian's patch (assuming it was sent to
> the ml).  Ah, I just saw (part #2) pop up.

Florian Forster <octo@verplant.org> writes:

> The regexes detecting merges (while still relying on the commit
> messages, though) have been improved to catch saner (and hopefully
> more) messages. The old regex was so generic that it often matched
> something else and missed the actual merge-message.

The assumption here is that merges are between branches or between a
branch and the trunk. The regexes therefore match things like
(parenthesis showing what is being used as the branch name if it
matches).
 - `branch/(name)'
 - `(trunk)'
 - `(name) branch'

Prior to the patch `git-svnimport' would match the message
  ``Merging from branch/foo to branch/bar''
and return `from' as the branch name.

-- 
Florian octo Forster
Hacker in training
GnuPG: 0x91523C3D
http://verplant.org/


From nobody Mon Sep 17 00:00:00 2001
From: Florian Forster <octo@verplant.org>
Date: Wed, 31 May 2006 12:28:41 +0200
Subject: [PATCH] git-svnimport: Improved detection of merges.

The regexes detecting merges (while still relying on the commit messages,
though) have been improved to catch saner (and hopefully more) messages. The
old regex was so generic that it often matched something else and missed the
actual merge-message.
Also, the regex given with the `-M' commandline-option is checked first:
Explicitely given regexes should be considered better than the builtin ones,
and should therefore be given a chance to match a message first.

---

 git-svnimport.perl |   11 +++++++++--
 1 files changed, 9 insertions(+), 2 deletions(-)

1075d5b0cd92dbb8dc77838b2da2d8190904b351
diff --git a/git-svnimport.perl b/git-svnimport.perl
index 61f559f..38ac732 100755
--- a/git-svnimport.perl
+++ b/git-svnimport.perl
@@ -63,10 +63,17 @@ my $svn_dir = $ARGV[1];
 
 our @mergerx = ();
 if ($opt_m) {
-	@mergerx = ( qr/\W(?:from|of|merge|merging|merged) (\w+)/i );
+	my $branch_esc = quotemeta ($branch_name);
+	my $trunk_esc  = quotemeta ($trunk_name);
+	@mergerx =
+	(
+		qr!\b(?:merg(?:ed?|ing))\b.*?\b((?:(?<=$branch_esc/)[\w\.\-]+)|(?:$trunk_esc))\b!i,
+		qr!\b(?:from|of)\W+((?:(?<=$branch_esc/)[\w\.\-]+)|(?:$trunk_esc))\b!i,
+		qr!\b(?:from|of)\W+(?:the )?([\w\.\-]+)[-\s]branch\b!i
+	);
 }
 if ($opt_M) {
-	push (@mergerx, qr/$opt_M/);
+	unshift (@mergerx, qr/$opt_M/);
 }
 
 # Absolutize filename now, since we will have chdir'ed by the time we
-- 
1.3.3