1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#! /bin/sh /usr/share/dpatch/dpatch-run
## 60lc.dpatch by Niko Tyni <ntyni@iki.fi>
##
## All lines beginning with `## DP:' are a description of the patch.
## DP: Fix lc() usage.
## DP: Originally from CPAN #346 by Michael Guennewig
@DPATCH@
diff -urNad trunk~/Net/IMAP.pm trunk/Net/IMAP.pm
--- trunk~/Net/IMAP.pm 2006-05-13 20:42:29.000000000 +0300
+++ trunk/Net/IMAP.pm 2006-05-13 20:48:06.367039898 +0300
@@ -2460,7 +2460,7 @@
$self->{Mailbox} = shift(@fields);
my %hash = @fields;
for my $key (keys %hash) {
- $self->{Identifiers}{lc{$key}} = $hash{$key};
+ $self->{Identifiers}{lc($key)} = $hash{$key};
}
return $self;
|
