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

[Niko Tyni]

Author: ntyni-guest
Date: 2005-12-21 12:56:00 +0000 (Wed, 21 Dec 2005)
New Revision: 1728

Modified:
   packages/libemail-localdelivery-perl/trunk/debian/patches/10mbox-locking.dpatch
Log:
Use SEEK_SET instead of 0.


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:37:49 UTC (rev 1727)
+++ packages/libemail-localdelivery-perl/trunk/debian/patches/10mbox-locking.dpatch	2005-12-21 12:56:00 UTC (rev 1728)
@@ -7,13 +7,13 @@
 @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-20 20:06:53.250575574 +0200
++++ trunk/LocalDelivery/Mbox.pm	2005-12-21 14:55:03.300692960 +0200
 @@ -2,7 +2,7 @@
  use File::Path;
  use File::Basename;
  use Email::Simple;
 -use Fcntl ':flock';
-+use Fcntl;
++use Fcntl qw(:DEFAULT :seek);
  
  our $VERSION = "1.07";
  
@@ -96,7 +96,7 @@
 +
 +sub unlock_fcntl {
 +    my ($class, $fh) = @_;
-+    my $lock = pack('s at 256', F_UNLCK);
++    my $lock = pack('ss at 256', F_UNLCK, SEEK_SET);
 +    return 1 if fcntl($fh, F_SETLK, $lock);
 +    return 0;
 +}