modified: Image/image_metadata_clone.pl -- keep modification date from $dest_file.

Author: trizen

Image/image_metadata_clone.pl

@@ -43,7 +43,7 @@ ($exit_code = 0)
 
 sub add_exif_info($source_image, $dest_image) {
 
-    my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks) = stat($source_image);
+    my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks) = stat($dest_image);
 
     my $exifTool  = Image::ExifTool->new;
     my $exif_info = $exifTool->SetNewValuesFromFile($source_image);