add warning

diff --git a/lib/Mubot4FB/FeedWorker.pm b/lib/Mubot4FB/FeedWorker.pm
index f8b7327..30f4b54 100644 (file)
--- a/lib/Mubot4FB/FeedWorker.pm
+++ b/lib/Mubot4FB/FeedWorker.pm
@@ -42,7 +42,7 @@ sub work {
                my ($fh, $tmp_file) = tempfile("tmpjsonXXXXXX", DIR => $tmpdir);
                print $fh encode_json($out);
                close($fh);
-               rename $tmp_file, $me->{cfg}->{json_path};
+               rename $tmp_file, $me->{cfg}->{json_path} || warn 'can not rename from ' . $tmp_file . ' to ' . $me->{cfg}->{json_path};
        }
 }