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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Thu Aug 21 21:59:38 2008
New Revision: 15349

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

Log:
 r15936 at sunnavys-mb:  sunnavy | 2008-08-22 09:20:30 +0800
 better check_repository for SVN backend


Modified: Shipwright/trunk/lib/Shipwright/Backend/SVN.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Backend/SVN.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Backend/SVN.pm	Thu Aug 21 21:59:38 2008
@@ -228,7 +228,11 @@
 
         my ( $info, $err ) = $self->info;
 
-        return 1 if $info || $err && $err =~ /Not a valid URL/;
+        my $repo = $self->repository;
+# $err like 
+# file:///tmp/svn/foo:  (Not a valid URL)
+# usually means foo doesn't exist, which is valid for create
+        return 1 if $info || $err && $err =~ /^$repo:/;
 
     }
     else {