[gentoo-commits] gentoo-x86 commit in app-crypt/tinyca/files: tinyca-2.0.7.5-perl-5.18.patch

[Alon Bar-Lev (alonbl)]

alonbl      14/08/20 03:41:09

  Added:                tinyca-2.0.7.5-perl-5.18.patch
  Log:
  Fix perl-5.18 compatibility, bug#506374, thanks to Kevin Bryan
  
  (Portage version: 2.2.8-r1/cvs/Linux x86_64, signed Manifest commit with key 
BF20DC51)

Revision  Changes    Path
1.1                  app-crypt/tinyca/files/tinyca-2.0.7.5-perl-5.18.patch

file : 
http://sources.gentoo.org/viewvc.cgi/gentoo-x86/app-crypt/tinyca/files/tinyca-2.0.7.5-perl-5.18.patch?rev=1.1&view=markup
plain: 
http://sources.gentoo.org/viewvc.cgi/gentoo-x86/app-crypt/tinyca/files/tinyca-2.0.7.5-perl-5.18.patch?rev=1.1&content-type=text/plain

Index: tinyca-2.0.7.5-perl-5.18.patch
===================================================================
--- tinyca2-0.7.5.orig/lib/GUI.pm       2006-07-25 16:12:00.000000000 -0400
--- tinyca2-0.7.5/lib/GUI.pm    2006-07-25 16:12:00.000000000 -0400
@@ -978,7 +978,7 @@
    $piter = $store->append($root);
    $store->set($piter, 0 => $t);
 
-   for my $l qw(CN EMAIL O OU C ST L) {
+   for my $l (qw(CN EMAIL O OU C ST L)) {
       if(defined($parsed->{$l})) {
          if($l eq "OU") {
             foreach my $ou (@{$parsed->{'OU'}}) {
@@ -1003,7 +1003,7 @@
       $piter = $store->append($root);
       $store->set($piter, 0 => $t);
    
-      for my $l qw(CN EMAIL O OU C ST L) {
+      for my $l (qw(CN EMAIL O OU C ST L)) {
          if(defined($parsed->{'ISSUERDN'}->{$l})) {
             if($l eq "OU") {
                foreach my $ou (@{$parsed->{'ISSUERDN'}->{'OU'}}) {
@@ -1029,7 +1029,7 @@
       $piter = $store->append($root);
       $store->set($piter, 0 => $t);
    
-      for my $l qw(STATUS NOTBEFORE NOTAFTER) {
+      for my $l (qw(STATUS NOTBEFORE NOTAFTER)) {
          if(defined($parsed->{$l})) {
             $citer = $store->append($piter);
             $store->set($citer, 
@@ -1045,7 +1045,7 @@
    $store->set($piter, 0 => $t);
 
 
-   for my $l qw(STATUS SERIAL KEYSIZE PK_ALGORITHM SIG_ALGORITHM TYPE) {
+   for my $l (qw(STATUS SERIAL KEYSIZE PK_ALGORITHM SIG_ALGORITHM TYPE)) {
       if(defined($parsed->{$l})) {
          $citer = $store->append($piter);
          $store->set($citer, 
@@ -1060,7 +1060,7 @@
       $piter = $store->append($root);
       $store->set($piter, 0 => $t);
    
-      for my $l qw(FINGERPRINTMD5 FINGERPRINTSHA1) {
+      for my $l (qw(FINGERPRINTMD5 FINGERPRINTSHA1)) {
          if(defined($parsed->{$l})) {
             $citer = $store->append($piter);
             $store->set($citer,