From: lace <>
Date: Wed, 19 Jul 2006 17:04:11 +0000 (+0000)
Subject: Fixed &User::Utmp::USER_PROCESS FC5 incompatiblity.
X-Git-Url: http://git.jankratochvil.net/?p=PerlMail.git;a=commitdiff_plain;h=e32c697b3f60065a62cec197b507d0557183fe8a

Fixed &User::Utmp::USER_PROCESS FC5 incompatiblity.
---

diff --git a/perlmail-accept b/perlmail-accept
index 81d1bd7..f058618 100755
--- a/perlmail-accept
+++ b/perlmail-accept
@@ -166,7 +166,7 @@ sub useridle
 	my($idlebest,$linebest);
 	for my $utmp (User::Utmp::getut(),{ "ut_line"=>"psaux" }) {
 		local $_;
-		next if defined($_=$utmp->{"ut_type"}) && $_!=User::Utmp::USER_PROCESS;
+		next if defined($_=$utmp->{"ut_type"}) && $_!=User::Utmp::USER_PROCESS();
 		next if defined($_=$utmp->{"ut_user"}) && !$valid_users{$_};
 		my $line="/dev/".$utmp->{"ut_line"};
 		my $atime=(stat $line)[8];