--- sendmail-8.14.3/contrib/expn.pl.old	2003-04-15 21:59:50 +0500
+++ sendmail-8.14.3/contrib/expn.pl	2008-09-25 20:48:09 +0500
@@ -99,6 +99,8 @@
 # $levels : -1
 # $S : the socket connection to $server
 
+chop($TEMPFILE = `mktemp`);
+
 $have_nslookup = 1;	# we have the nslookup program
 $port = 'smtp';
 $av0 = $0;
@@ -402,7 +404,7 @@
 for $f (sort @final) {
 	print "$f\n";
 }
-unlink("/tmp/expn$$");
+unlink("$TEMPFILE");
 exit(0);
 
 
@@ -1000,13 +1002,13 @@
 	}
 
 	$0 = "$av0 - nslookup of $server";
-	sysopen(T,"/tmp/expn$$",O_RDWR|O_CREAT|O_EXCL,0600) || die "open > /tmp/expn$$: $!\n";
+	sysopen(T,$TEMPFILE,O_RDWR|O_CREAT|O_EXCL,0600) || die "open > $TEMPFILE: $!\n";
 	print T "set querytype=MX\n";
 	print T "$server\n";
 	close(T);
 	$cpref = 1.0E12;
 	undef $nserver;
-	open(NSLOOKUP,"nslookup < /tmp/expn$$ 2>&1 |") || die "open nslookup: $!";
+	open(NSLOOKUP,"nslookup < $TEMPFILE 2>&1 |") || die "open nslookup: $!";
 	while(<NSLOOKUP>) {
 		print if ($debug > 2);
 		if (/mail exchanger = ([-A-Za-z_.0-9+]+)/) {
@@ -1037,7 +1039,7 @@
 				
 	}
 	close(NSLOOKUP);
-	unlink("/tmp/expn$$");
+	unlink($TEMPFILE);
 	unless ($nserver) {
 		$0 = "$o0 - finished mxlookup";
 		return 0 unless $lastchance;