Author: duff
Date: Mon Mar 31 19:41:38 2008
New Revision: 26682
Modified:
trunk/lib/Parrot/Revision.pm
Log:
[config] git URL might not be https and it might not be of trunk
Modified: trunk/lib/Parrot/Revision.pm
==============================================================================
--- trunk/lib/Parrot/Revision.pm (original)
+++ trunk/lib/Parrot/Revision.pm Mon Mar 31 19:41:38 2008
@@ -61,7 +61,7 @@
}
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+) ];
+ $git_info[-1] =~ m[git-svn-id:
https?://svn.perl.org/parrot.*?@(\d+) ];
}
elsif ( my @svk_info = qx/svk info 2>$nul/ and $? == 0 ) {
if ( my ($line) = grep /(?:file|svn|https?)\b/, @svk_info ) {
