From 378c652d2022ce2b94d9ef25ba6074dc124c34ff Mon Sep 17 00:00:00 2001
From: Ben Roberts <ben@sihnon.net>
Date: Thu, 14 Jan 2010 07:27:30 +0000
Subject: [PATCH] If a file copy fails, log the reason

---
 trunk/tvmover.pl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/trunk/tvmover.pl b/trunk/tvmover.pl
index abdddf2..7599a06 100755
--- a/trunk/tvmover.pl
+++ b/trunk/tvmover.pl
@@ -126,7 +126,10 @@ sub process_completed_directory {
             my $output_filename = $output_dir . '/' . $completed_torrent;
 
             # Copy the file over to the media share
-            copy_to_media_share($completed_filename, $output_filename) or next;
+            if (!copy_to_media_share($completed_filename, $output_filename)) {
+                $log->error("Failed to copy $completed_filename to $output_filename: $!");
+                next;
+            }
 
             # Attempt to rename the file
             my $final_filename = $output_filename;