1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
#! /bin/sh /usr/share/dpatch/dpatch-run
## 90quota.dpatch by Niko Tyni <ntyni@iki.fi>
##
## All lines beginning with `## DP:' are a description of the patch.
## DP: Fix quota support. (#366480)
## DP: Original patch by Mike Beattie.
@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;
|
