[svn:parrot] r40331 - trunk/lib/Parrot/Harness

[jkeenan at svn.parrot.org]

Author: jkeenan
Date: Thu Jul 30 01:49:02 2009
New Revision: 40331
URL: https://trac.parrot.org/parrot/changeset/40331

Log:
[testing] Improve regex used to identify repository branches in preparing smoke reports.

Modified:
   trunk/lib/Parrot/Harness/Smoke.pm

Modified: trunk/lib/Parrot/Harness/Smoke.pm
==============================================================================
--- trunk/lib/Parrot/Harness/Smoke.pm	Thu Jul 30 01:48:47 2009	(r40330)
+++ trunk/lib/Parrot/Harness/Smoke.pm	Thu Jul 30 01:49:02 2009	(r40331)
@@ -169,7 +169,7 @@
             $devel .= (" ". at mods." mods");
         }
         my $info = `svn info .`;
-        ($branch) = $info =~ m{URL: .+/parrot/(\w+)$}m;
+        ($branch) = $info =~ m{URL: .+/parrot/(?:branches/)?(\w+)$}m;
     }
     my $me = $^O eq 'MSWin32' ? $ENV{'USERNAME'}
            : $ENV{'LOGNAME'} || eval { getpwuid($<) };