Hardlink if possible, after all, this is what the checksummed files are for (#22)

This can save significant space as it will link the checksummed files to
the actual files, which is the original intent of these files.

And if the link is not supported or fails - we fall back to the original
file copy.

1 files changed, 9 insertions, 2 deletions

diff --git a/apt-mirror b/apt-mirror
index 48d084c..03c4375 100755
--- a/apt-mirror
+++ b/apt-mirror
@@ -885,12 +885,19 @@ sub copy_file
     {
         if ( compare( $from, $to ) != 0 ) { unlink($to); }
     }
-    unless ( copy( $from, $to ) )
+    my @stat_from = stat($from);
+    if ( -f $to )
+    {
+        my @stat_to = stat($to);
+        return if ("@stat_to" eq "@stat_from");
+    }
+
+    unless ( link( $from, $to ) or copy( $from, $to ) )
     {
         warn("apt-mirror: can't copy $from to $to");
         return;
     }
-    my ( $atime, $mtime ) = ( stat($from) )[ 8, 9 ];
+    my ( $atime, $mtime ) = @stat_from[ 8, 9 ];
     utime( $atime, $mtime, $to ) or die("apt-mirror: can't utime $to");
 }