[Bps-public-commit] r12248 -

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Mon May 12 06:45:58 2008
New Revision: 12248

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

Log:
 r12253 at sunnavys-mb:  sunnavy | 2008-05-12 17:53:12 +0800
 extra svk source type inference


Modified: Shipwright/trunk/lib/Shipwright/Source.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Source.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Source.pm	Mon May 12 06:45:58 2008
@@ -61,8 +61,12 @@
             $$source =~ s{^$type:(?!//)}{}i;
             return uc $type;
         }
-    }
 
+        # extra svk type inference
+        if ( $source =~ m{^//} ) {
+            return 'SVK';
+        }
+    }
 }
 
 1;