[Bps-public-commit] r17025 - in Shipwright/trunk: lib/Shipwright/Backend

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Wed Nov 26 14:31:38 2008
New Revision: 17025

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/lib/Shipwright/Backend/SVK.pm

Log:
 r17937 at sunnavys-mb:  sunnavy | 2008-11-27 03:31:26 +0800
 tiny regex fix


Modified: Shipwright/trunk/lib/Shipwright/Backend/SVK.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Backend/SVK.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Backend/SVK.pm	Wed Nov 26 14:31:38 2008
@@ -46,7 +46,7 @@
     my $self = shift;
     return $self->{svnroot} if $self->{svnroot};
     my $depotmap = Shipwright::Util->run( [ svk => depotmap => '--list' ] );
-    $depotmap =~ s{\A.*^(?=/)}{}sm;
+    $depotmap =~ s{\A.*?^(?=/)}{}sm;
     while ($depotmap =~ /^(\S*)\s+(.*?)$/gm) {
         my ($depot, $svnroot) = ($1, $2);
         if ($self->repository =~ /^$depot(.*)/) {