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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue Jul 22 13:41:15 2008
New Revision: 14386

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

Log:
 r14845 at sunnavys-mb:  sunnavy | 2008-07-23 01:09:58 +0800
 don't erase type head too early


Modified: Shipwright/trunk/lib/Shipwright/Script/List.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/List.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/List.pm	Tue Jul 22 13:41:15 2008
@@ -58,7 +58,7 @@
 
             for my $name ( keys %$source ) {
                 next if exists $latest_version->{$name};
-                if ( $source->{$name} =~ s{^sv[nk]:}{}g ) {
+                if ( $source->{$name} =~ m{^sv[nk]:} ) {
                     $latest_version->{$name} =
                       $self->_latest_version( url => $source->{$name} );
                 }