[svn:parrot] r38687 - trunk/lib/Parrot

[Infinoid at svn.parrot.org]

Author: Infinoid
Date: Mon May 11 14:24:04 2009
New Revision: 38687
URL: https://trac.parrot.org/parrot/changeset/38687

Log:
[config] Determine revision correctly in git-svn checkouts (and git-only clones of those, like mine).

Modified:
   trunk/lib/Parrot/Revision.pm

Modified: trunk/lib/Parrot/Revision.pm
==============================================================================
--- trunk/lib/Parrot/Revision.pm	Mon May 11 13:56:46 2009	(r38686)
+++ trunk/lib/Parrot/Revision.pm	Mon May 11 14:24:04 2009	(r38687)
@@ -91,6 +91,12 @@
             ($revision) = $line =~ /(\d+)/;
         }
     }
+    if( !$revision && (-d '.git') ) {
+        my $git_log = qx/git log -100 2>$nul/;
+        if(defined($git_log) && $git_log =~ /git-svn-id: \S+\@(\d+)\s/) {
+            $revision = $1;
+        }
+    }
     return $revision;
 }