r2767 - in /packages/libnetxap-perl/trunk/debian: changelog patches/00list patches/90quota.dpatch

[ntyni-guest at users.alioth.debian.org]

Author: ntyni-guest
Date: Sat May 13 18:12:46 2006
New Revision: 2767

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=2767
Log:
Fix quota support. (#366480)

Added:
    packages/libnetxap-perl/trunk/debian/patches/90quota.dpatch   (with props)
Modified:
    packages/libnetxap-perl/trunk/debian/changelog
    packages/libnetxap-perl/trunk/debian/patches/00list

Modified: packages/libnetxap-perl/trunk/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libnetxap-perl/trunk/debian/changelog?rev=2767&op=diff
==============================================================================
--- packages/libnetxap-perl/trunk/debian/changelog (original)
+++ packages/libnetxap-perl/trunk/debian/changelog Sat May 13 18:12:46 2006
@@ -12,10 +12,12 @@
     + 60lc.dpatch: Fix typo in Net::IMAP:Acl::new()
     + 70search.dpatch: Fix 'use of uninitialized value' messages
       when an IMAP search doesn't match.
-    + 80expunge.dpatch: Fix handling of expunge responses. 
+    + 80expunge.dpatch: Fix handling of expunge responses.
       Thanks to Torsten Hilbrich for the patch. (Closes: #366209)
+    + 90quota.dpatch: Fix quota support.
+      Thanks to Mike Beattie for the patch. (Closes: #366480)
 
- -- Niko Tyni <ntyni at iki.fi>  Sat, 13 May 2006 21:06:52 +0300
+ -- Niko Tyni <ntyni at iki.fi>  Sat, 13 May 2006 21:10:38 +0300
 
 libnetxap-perl (0.02-5) unstable; urgency=low
 

Modified: packages/libnetxap-perl/trunk/debian/patches/00list
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libnetxap-perl/trunk/debian/patches/00list?rev=2767&op=diff
==============================================================================
--- packages/libnetxap-perl/trunk/debian/patches/00list (original)
+++ packages/libnetxap-perl/trunk/debian/patches/00list Sat May 13 18:12:46 2006
@@ -6,3 +6,4 @@
 60lc.dpatch
 70search.dpatch
 80expunge.dpatch
+90quota.dpatch

Added: packages/libnetxap-perl/trunk/debian/patches/90quota.dpatch
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libnetxap-perl/trunk/debian/patches/90quota.dpatch?rev=2767&op=file
==============================================================================
--- packages/libnetxap-perl/trunk/debian/patches/90quota.dpatch (added)
+++ packages/libnetxap-perl/trunk/debian/patches/90quota.dpatch Sat May 13 18:12:46 2006
@@ -1,0 +1,22 @@
+#! /bin/sh /usr/share/dpatch/dpatch-run
+## 90quota.dpatch by Niko Tyni <ntyni at iki.fi>
+##
+## All lines beginning with `## DP:' are a description of the patch.
+## DP: Fix quota support. (#366480)
+## DP: Original patch by Mike Beattie.
+
+ at DPATCH@
+diff -urNad trunk~/Net/IMAP.pm trunk/Net/IMAP.pm
+--- trunk~/Net/IMAP.pm	2006-05-13 21:05:00.000000000 +0300
++++ trunk/Net/IMAP.pm	2006-05-13 21:09:37.753187330 +0300
+@@ -2611,8 +2611,8 @@
+   my @fields = @{Net::xAP->parse_fields($str)};
+   $self->{QuotaRoot} = shift(@fields);
+   while (@fields) {
+-    my ($resource, $usage, $limit) = splice(@fields, 0, 3);
+-    $self->{Quota}{lc($resource)} = [$usage, $limit];
++    my ($resource, $usage, $limit) = splice(@{$fields[0]}, 0, 3);
++    $self->{Quotas}{lc($resource)} = [$usage, $limit];
+   }
+ 
+   return $self;

Propchange: packages/libnetxap-perl/trunk/debian/patches/90quota.dpatch
------------------------------------------------------------------------------
    svn:executable = *