[Bps-public-commit] r12179 - Shipwright/trunk/lib/Shipwright/Script

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Fri May  9 01:57:27 2008
New Revision: 12179

Modified:
   Shipwright/trunk/lib/Shipwright/Script/Update.pm

Log:
version support for update cmd

Modified: Shipwright/trunk/lib/Shipwright/Script/Update.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/Update.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/Update.pm	Fri May  9 01:57:27 2008
@@ -135,10 +135,13 @@
 
     $shipwright->source->run;
 
+    my $version = Shipwright::Util::LoadFile( $shipwright->source->version_path );
+
     $shipwright->backend->import(
         source  => File::Spec->catfile( $shipwright->source->directory, $name ),
         comment => "update $name",
         overwrite => 1,
+        version => $version->{$name},
     );
 
 }