Modified: freeswitch/trunk/contrib/sathieu/email2pdf/email2pdf (15695 => 15696)

--- freeswitch/trunk/contrib/sathieu/email2pdf/email2pdf	2009-11-27 16:09:03 UTC (rev 15695)
+++ freeswitch/trunk/contrib/sathieu/email2pdf/email2pdf	2009-11-27 16:36:04 UTC (rev 15696)
@@ -157,10 +157,10 @@
 			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;