Debugging

transmission.pl

@@ -10,7 +10,7 @@ use File::Touch;
 use File::Temp 'mktemp';
 use File::Path 'remove_tree';
 use File::Basename;
-use Image::ExifTool 'Public';
+use Image::ExifTool qw/ :Public/;
 use FindBin qw($Bin);
 use lib $Bin;
 use Fetch;
@@ -639,7 +639,6 @@ sub delNZB($) {
 	my $content = $delHistory;
 	$content =~ s/\#_ID_\#/${id}/;
 	$fetch->post_content($content);
-	print STDERR 'Delete: ' . $content . "\n";
 	$fetch->fetch();
 
 	# Check the result