diff options
Diffstat (limited to 'debian/patches/8.14/8.14.0.Beta5/qtool.patch')
-rw-r--r-- | debian/patches/8.14/8.14.0.Beta5/qtool.patch | 101 |
1 files changed, 0 insertions, 101 deletions
diff --git a/debian/patches/8.14/8.14.0.Beta5/qtool.patch b/debian/patches/8.14/8.14.0.Beta5/qtool.patch deleted file mode 100644 index 28ba7d1..0000000 --- a/debian/patches/8.14/8.14.0.Beta5/qtool.patch +++ /dev/null @@ -1,101 +0,0 @@ -*** ./sendmail-8.14.0.Beta5/contrib/qtool.pl Wed Mar 5 16:11:54 2003 ---- ./sendmail-8.14.0.Beta5/contrib/qtool.pl Wed Mar 5 15:59:10 2003 -*************** -*** 355,373 **** - sub lock_file - { - my $file_name = shift; - my $result; - - $result = sysopen(FILE_TO_LOCK, $file_name, Fcntl::O_RDWR); - if (!$result) - { - return (undef, "Unable to open '$file_name': $!"); - } - -! $result = flock(FILE_TO_LOCK, Fcntl::LOCK_EX | Fcntl::LOCK_NB); -! if (!$result) - { - return (undef, "Could not obtain lock on '$file_name': $!"); - } - - return (\*FILE_TO_LOCK, undef); - } ---- 355,394 ---- - sub lock_file - { - my $file_name = shift; - my $result; - -+ my $FLOCK_STRUCT; -+ my $fcntllock; -+ -+ # Supposedly under linux -+ # my $FLOCK_STRUCT = 's s l l i'; -+ # But I think perl's using __off64_t instead of __off_t -+ # my $FLOCK_STRUCT = 's s l l l l i'; -+ # Screw it, its all zero anyway... -+ -+ $FLOCK_STRUCT = 's H60'; -+ $fcntllock = pack($FLOCK_STRUCT, F_WRLCK, -+ "000000000000000000000000000000000000000000000000000000000000"); -+ - $result = sysopen(FILE_TO_LOCK, $file_name, Fcntl::O_RDWR); - if (!$result) - { -+ # print "Unable to open '$file_name': $!"; - return (undef, "Unable to open '$file_name': $!"); - } - -! $result = fcntl (FILE_TO_LOCK, F_SETLK, $fcntllock); -! -! # print "Fcntl Lock result on $file_name = $result\n"; -! -! # $result = flock(FILE_TO_LOCK, Fcntl::LOCK_EX | Fcntl::LOCK_NB); -! # print "Lock result on $file_name = $result\n"; -! # if (!$result) -! if ($result ne "0 but true") - { -+ # print "Could not obtain lock on '$file_name': $!\n"; - return (undef, "Could not obtain lock on '$file_name': $!"); - } - - return (\*FILE_TO_LOCK, undef); - } -*************** -*** 387,399 **** - - sub unlock_file - { - my $file = shift; - my $result; - -! $result = flock($file, Fcntl::LOCK_UN); -! if (!$result) - { - return "Unlock failed on '$result': $!"; - } - - return undef; ---- 408,428 ---- - - sub unlock_file - { - my $file = shift; - my $result; -+ my $FLOCK_STRUCT; -+ my $fcntllock; - -! $FLOCK_STRUCT = 's H60'; -! $fcntllock = pack($FLOCK_STRUCT, F_UNLCK, -! "000000000000000000000000000000000000000000000000000000000000"); -! $result = fcntl (FILE_TO_LOCK, F_SETLK, $fcntllock); -! -! if ($result ne "0 but true") -! # $result = flock($file, Fcntl::LOCK_UN); -! # if (!$result) - { - return "Unlock failed on '$result': $!"; - } - - return undef; |