$OpenBSD: patch-lib_MailScanner_CustomFunctions_LastSpam_pm,v 1.1 2013/12/12 21:56:19 brad Exp $
--- lib/MailScanner/CustomFunctions/LastSpam.pm.orig	Thu Dec 12 16:18:13 2013
+++ lib/MailScanner/CustomFunctions/LastSpam.pm	Thu Dec 12 16:21:45 2013
@@ -32,7 +32,6 @@ $VERSION = substr q$Revision: 1.1 $, 10;
 my $Debug = 0; # Set to 1 to enable debug output to STDERR
 #my $tmpfilename = "/tmp/MailScanner.LastSpam.$$.conf"; # Temp MS.conf file
 # Temp MS.conf file
-my($tmpfh, $tmpfilename) = tempfile("MailScanner.LastSpam.XXXXXX", TMPDIR => 1, UNLINK => 0);
 my %modtime = (); # Time domain list magic word file was last changed
 my %filename = (); # Map Config option to magic word file
 my %magicwords = {}; # Map Config option --> domains --> magic words
@@ -550,8 +549,7 @@ sub EndLastSpamSpamChecks {
 sub SetupRuleset {
   my($opkeyword) = @_;
 
-  my $fh = new FileHandle;
-  $fh->open("> $tmpfilename") or die "$!";
+  my($fh, $tmpfilename) = tempfile("MailScanner.LastSpam.XXXXXX", TMPDIR => 1, UNLINK => 0);
   my $rf = $rulesetfilename{$opkeyword};
   #print STDERR "RF = $rf\n";
   #print STDERR $opkeyword . " = $rf\n";
