[svn:parrot] r40330 - branches/io_cleanups/lib/Parrot/Harness

[jkeenan at svn.parrot.org]

Author: jkeenan
Date: Thu Jul 30 01:48:47 2009
New Revision: 40330
URL: https://trac.parrot.org/parrot/changeset/40330

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

Modified:
   branches/io_cleanups/lib/Parrot/Harness/Smoke.pm

Modified: branches/io_cleanups/lib/Parrot/Harness/Smoke.pm
==============================================================================
--- branches/io_cleanups/lib/Parrot/Harness/Smoke.pm	Thu Jul 30 01:42:54 2009	(r40329)
+++ branches/io_cleanups/lib/Parrot/Harness/Smoke.pm	Thu Jul 30 01:48:47 2009	(r40330)
@@ -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($<) };