[Bps-public-commit] r12329 - in Shipwright/trunk: lib/Shipwright/Script

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Thu May 15 06:04:00 2008
New Revision: 12329

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

Log:
 r12368 at sunnavys-mb:  sunnavy | 2008-05-15 16:57:35 +0800
 updated list cmd


Modified: Shipwright/trunk/lib/Shipwright/Script/List.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/List.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/List.pm	Thu May 15 06:04:00 2008
@@ -66,7 +66,7 @@
 
             for my $name ( keys %$source ) {
                 next if exists $latest_version->{$name};
-                if ( $source->{$name} =~ m{^(svn|svk|//)} ) {
+                if ( $source->{$name} =~ s{^sv[nk]:}{}g ) {
                     $latest_version->{$name} =
                       $self->_latest_version( url => $source->{$name} );
                 }