Author: infinoid
Date: Sun Mar 23 06:43:40 2008
New Revision: 26518
Modified:
trunk/lib/Parrot/Revision.pm
Log:
[config] Pass "--grep=^git-svn-id:" to "git log" in Parrot::Revision
This prevents it from trying to determine the non-existent revision in a
local commit.
This fixes a bug I introduced in r26514. Patch provided by Matt Kraai in
RT#52022. Thanks! kraai++
Modified: trunk/lib/Parrot/Revision.pm
==============================================================================
--- trunk/lib/Parrot/Revision.pm (original)
+++ trunk/lib/Parrot/Revision.pm Sun Mar 23 06:43:40 2008
@@ -59,7 +59,7 @@
($revision) = $line =~ /(\d+)/;
}
}
- elsif ( -d '.git' && (my @git_info = qx/git log -1 2>$nul/ and $? == 0) ) {
+ elsif ( -d '.git' && (my @git_info = qx/git log -1 --grep=^git-svn-id:
2>$nul/ and $? == 0) ) {
($revision) =
$git_info[-1] =~ m[git-svn-id:
https://svn.perl.org/parrot/trunk@(\d+) ];
}
