[Bps-public-commit] r13524 - in Shipwright/trunk: lib/Shipwright/Source

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sat Jun 21 03:05:53 2008
New Revision: 13524

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

Log:
 r13610 at sunnavys-mb:  sunnavy | 2008-06-21 02:45:41 +0800
 don't mv if source and target is the same


Modified: Shipwright/trunk/lib/Shipwright/Source/Compressed.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Source/Compressed.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Source/Compressed.pm	Sat Jun 21 03:05:53 2008
@@ -89,14 +89,12 @@
         }
     }
     else {
-        push @cmds,
-          [
-            'mv',
-            File::Spec->catfile( $self->directory, $self->path ),
-            File::Spec->catfile(
-                $self->directory, $self->just_name( $self->path )
-            )
-          ];
+        my $from = File::Spec->catfile( $self->directory, $self->path );
+        my $to =
+          File::Spec->catfile( $self->directory,
+            $self->just_name( $self->path ) );
+        push @cmds, [ 'mv', $from, $to ]
+          unless $from eq $to;
     }
 
     return @cmds;