[Bps-public-commit] r12249 -

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Mon May 12 06:46:10 2008
New Revision: 12249

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

Log:
 r12254 at sunnavys-mb:  sunnavy | 2008-05-12 17:57:15 +0800
 fix svk inference bug


Modified: Shipwright/trunk/lib/Shipwright/Source.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Source.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Source.pm	Mon May 12 06:46:10 2008
@@ -56,17 +56,18 @@
     return 'CPAN'       if $$source =~ s/^cpan://i;
 
     # prefix that can be omitted
-    for my $type (qw/svk svn http ftp/) {
+    for my $type (qw/svn http ftp/) {
         if ( $$source =~ /^$type:/i ) {
             $$source =~ s{^$type:(?!//)}{}i;
             return uc $type;
         }
+    }
 
-        # extra svk type inference
-        if ( $source =~ m{^//} ) {
-            return 'SVK';
-        }
+    if ( $$source =~ m{^(//|svk:)}i ) {
+        $$source =~ s/^svk://i;
+        return 'SVK';
     }
+
 }
 
 1;