r1729 - packages/libemail-localdelivery-perl/trunk/debian/patches
Niko Tyni
ntyni-guest at costa.debian.org
Wed Dec 21 13:09:10 UTC 2005
Author: ntyni-guest
Date: 2005-12-21 13:09:10 +0000 (Wed, 21 Dec 2005)
New Revision: 1729
Modified:
packages/libemail-localdelivery-perl/trunk/debian/patches/10mbox-locking.dpatch
Log:
Use SEEK_SET while locking too.
Modified: packages/libemail-localdelivery-perl/trunk/debian/patches/10mbox-locking.dpatch
===================================================================
--- packages/libemail-localdelivery-perl/trunk/debian/patches/10mbox-locking.dpatch 2005-12-21 12:56:00 UTC (rev 1728)
+++ packages/libemail-localdelivery-perl/trunk/debian/patches/10mbox-locking.dpatch 2005-12-21 13:09:10 UTC (rev 1729)
@@ -7,7 +7,7 @@
@DPATCH@
diff -urNad trunk~/LocalDelivery/Mbox.pm trunk/LocalDelivery/Mbox.pm
--- trunk~/LocalDelivery/Mbox.pm 2005-12-20 00:42:20.000000000 +0200
-+++ trunk/LocalDelivery/Mbox.pm 2005-12-21 14:55:03.300692960 +0200
++++ trunk/LocalDelivery/Mbox.pm 2005-12-21 15:08:47.051099165 +0200
@@ -2,7 +2,7 @@
use File::Path;
use File::Basename;
@@ -61,7 +61,7 @@
+
+sub getlock_fcntl {
my ($class, $fh) = @_;
-+ my $lock = pack('s at 256', F_WRLCK);
++ my $lock = pack('ss at 256', F_WRLCK, SEEK_SET);
for (1..10) {
- return 1 if flock ($fh, LOCK_EX | LOCK_NB);
+ return 1 if fcntl($fh, F_SETLK, $lock);
More information about the Pkg-perl-cvs-commits
mailing list