[Bps-public-commit] r10804 - Shipwright/lib/Shipwright

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Mon Feb 11 08:40:19 2008
New Revision: 10804

Modified:
   Shipwright/lib/Shipwright/Backend.pm

Log:
improve backend type detecting way

Modified: Shipwright/lib/Shipwright/Backend.pm
==============================================================================
--- Shipwright/lib/Shipwright/Backend.pm	(original)
+++ Shipwright/lib/Shipwright/Backend.pm	Mon Feb 11 08:40:19 2008
@@ -19,10 +19,12 @@
 
     my $module;
 
-    if ( $args{repository} =~ s{^\s*svk:}{} ) {
+    if ( $args{repository} =~ m{^\s*(svk:|//)} ) {
+        $args{repository} =~ s{^\s*svk:}{};
         $module = 'Shipwright::Backend::SVK';
     }
-    elsif ( $args{repository} =~ s{^\s*svn:}{} ) {
+    elsif ( $args{repository} =~ m{^\s*svn[:+]} ) {
+        $args{repository} =~ s{^\s*svn:(?!//)}{};
         $module = 'Shipwright::Backend::SVN';
     }
     else {