[Bps-public-commit] r15156 - Shipwright/branches/1.10/lib/Shipwright/Backend

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Thu Aug 14 09:40:45 2008
New Revision: 15156

Modified:
   Shipwright/branches/1.10/lib/Shipwright/Backend/FS.pm

Log:
delete before import if imported before

Modified: Shipwright/branches/1.10/lib/Shipwright/Backend/FS.pm
==============================================================================
--- Shipwright/branches/1.10/lib/Shipwright/Backend/FS.pm	(original)
+++ Shipwright/branches/1.10/lib/Shipwright/Backend/FS.pm	Thu Aug 14 09:40:45 2008
@@ -163,6 +163,16 @@
     copy( $latest, $file );
 }
 
+=item import
+
+=cut
+
+sub import {
+    my $self = shift;
+    return unless @_;
+    return $self->SUPER::import( @_, delete => 1 );
+}
+
 =back
 
 =cut