r19449 - in /trunk/libmail-box-perl/debian: changelog patches/01_access_check_use_filetest::access.patch

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Mon May  5 21:13:33 2008
New Revision: 19449

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=19449
Log:
Refresh patch 01_access_check_use_filetest::access.patch.

Modified:
    trunk/libmail-box-perl/debian/changelog
    trunk/libmail-box-perl/debian/patches/01_access_check_use_filetest::access.patch

Modified: trunk/libmail-box-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmail-box-perl/debian/changelog?rev=19449&op=diff
==============================================================================
--- trunk/libmail-box-perl/debian/changelog (original)
+++ trunk/libmail-box-perl/debian/changelog Mon May  5 21:13:33 2008
@@ -1,8 +1,9 @@
 libmail-box-perl (2.082-1) UNRELEASED; urgency=low
 
   * New upstream release.
-
- -- gregor herrmann <gregoa at debian.org>  Mon, 05 May 2008 23:07:57 +0200
+  * Refresh patch 01_access_check_use_filetest::access.patch.
+
+ -- gregor herrmann <gregoa at debian.org>  Mon, 05 May 2008 23:13:19 +0200
 
 libmail-box-perl (2.081-1) unstable; urgency=low
 

Modified: trunk/libmail-box-perl/debian/patches/01_access_check_use_filetest::access.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmail-box-perl/debian/patches/01_access_check_use_filetest%3A%3Aaccess.patch?rev=19449&op=diff
==============================================================================
--- trunk/libmail-box-perl/debian/patches/01_access_check_use_filetest::access.patch (original)
+++ trunk/libmail-box-perl/debian/patches/01_access_check_use_filetest::access.patch Mon May  5 21:13:33 2008
@@ -1,13 +1,13 @@
---- libmail-box-perl-2.074.orig/lib/Mail/Box/Dir.pm
-+++ libmail-box-perl-2.074/lib/Mail/Box/Dir.pm
-@@ -58,9 +58,13 @@
+--- libmail-box-perl.orig/lib/Mail/Box/Dir.pm
++++ libmail-box-perl/lib/Mail/Box/Dir.pm
+@@ -59,9 +59,13 @@
  
      # Check if we can write to the folder, if we need to.
  
 -    if($self->writable && -e $directory && ! -w $directory)
 -    {   $self->log(WARNING=> "Folder directory $directory is write-protected.");
 -        $self->{MB_access} = 'r';
-+    {   # filetest 'access' is slower, but works correctly if we have a 
++    {   # filetest 'access' is slower, but works correctly if we have a
 +	# filesystem with ACLs
 +	use filetest 'access';
 +	if($self->writable && -e $directory && ! -w $directory)
@@ -17,16 +17,16 @@
      }
  
      $self;
---- libmail-box-perl-2.074.orig/lib/Mail/Box/File.pm
-+++ libmail-box-perl-2.074/lib/Mail/Box/File.pm
-@@ -88,9 +88,13 @@
+--- libmail-box-perl.orig/lib/Mail/Box/File.pm
++++ libmail-box-perl/lib/Mail/Box/File.pm
+@@ -89,9 +89,13 @@
  
      # Check if we can write to the folder, if we need to.
  
 -    if($self->writable && ! -w $filename)
 -    {   $self->log(WARNING => "Folder $self file $filename is write-protected.");
 -        $self->{MB_access} = 'r';
-+    {   # filetest 'access' is slower, but works correctly if we have a 
++    {   # filetest 'access' is slower, but works correctly if we have a
 +	# filesystem with ACLs
 +	use filetest 'access';
 +	if($self->writable && ! -w $filename)