dev-perl/Crypt-DSA/files/crypt-dsa-1.16-dsaparam.patch


1
2
3
4
5
6
7
8
9
10
11
12
13
14

https://rt.cpan.org/Public/Bug/Display.html?id=49668
http://cvs.fedoraproject.org/viewvc/rpms/perl-Crypt-DSA/devel/perl-Crypt-DSA-dsaparam.patch?view=log

--- lib/Crypt/DSA/KeyChain.pm
+++ lib/Crypt/DSA/KeyChain.pm
@@ -53,7 +53,7 @@
             my $cur_part;
             foreach (@res) {
                 if (/^\s+(\w):\s*$/) {
-                    $cur_part = $1;
+                    $cur_part = lc($1);
                     next;
                 }
                 if (/^\s*((?:[0-9a-f]{2,2}:?)+)\s*$/) {