svn commit: rev 45996 - spamassassin/trunk/lib/Mail/SpamAssassin

[fe...@apache.org]

Author: felicity
Date: Mon Sep 13 11:48:29 2004
New Revision: 45996

Modified:
   spamassassin/trunk/lib/Mail/SpamAssassin/Util.pm
Log:
bug 3774: had a carryover 'touid touid' for setting euid from the egid code, which requires two numbers instead of just one.  This broke on the FreeBSD perl.

Modified: spamassassin/trunk/lib/Mail/SpamAssassin/Util.pm
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/Util.pm	(original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/Util.pm	Mon Sep 13 11:48:29 2004
@@ -963,7 +963,7 @@
   return if (RUNNING_ON_WINDOWS);
 
   # remember the target uid, the first number is the important one
-  my($touid) = split(/\s+/, $>);
+  my $touid = $>;
 
   if ($< != $touid) {
     dbg ("changing real uid from $< to match effective uid $touid");
@@ -978,7 +978,7 @@
 
       $> = $<;			# revert euid to ruid
       $< = $touid;		# change ruid to target
-      $> = "$touid $touid";	# change euid back to target
+      $> = $touid;		# change euid back to target
     }
 
     # Check that we have now accomplished the setuid