email2pdf: close filehandle before passing it to the command

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk/contrib@15696 d0543943-73ff-0310-b7d9-9358b9ac24b2

sathieu/email2pdf/email2pdf

@@ -157,10 +157,10 @@ sub process_raw
 			my ($fh_in, $filename_in) = tempfile( DIR => $output_dir, SUFFIX => $suffix );
 			system("chmod +r $filename_in");
 			print { $fh_in } $raw;
+			close $fh_in or warn $! ? "Error closing sort pipe: $!" : "Exit status $? from sort";
 			$command =~ s/FILE/$filename_in/;
 			print STDERR "Processing '$filename' ($content_type). From '$filename_in'. ";
 			my $out = `$command`;
-			close $fh_in or warn $! ? "Error closing sort pipe: $!" : "Exit status $? from sort";
 			if(!$out) {
 				print STDERR "Empty generated PDF.\n";
 				return;