r1729 - packages/libemail-localdelivery-perl/trunk/debian/patches

[Niko Tyni]

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);