[Pgp-tools-commit] r692 - in trunk: caff gpgsigs

[Guilhem Moulin]

Author: guilhem-guest
Date: 2014-08-24 06:32:29 +0000 (Sun, 24 Aug 2014)
New Revision: 692

Modified:
   trunk/caff/caff
   trunk/gpgsigs/gpgsigs
Log:
Don't push on array references, as it is experimental.

Modified: trunk/caff/caff
===================================================================
--- trunk/caff/caff	2014-08-23 17:37:52 UTC (rev 691)
+++ trunk/caff/caff	2014-08-24 06:32:29 UTC (rev 692)
@@ -1433,10 +1433,10 @@
 			last;
 		}
 		elsif (/^sub:[^:]+:(?:[^:]*:){2}([0-9A-F]{16}):/) {
-			push $KEYS{$keyid}->{subkeys}, $1;
+			push @{$KEYS{$keyid}->{subkeys}}, $1;
 		}
 		elsif (/^(uid|uat):([^:]+):(?:[^:]*:){5}([0-9A-F]{40}):[^:]*:([^:]+)/) {
-			push $KEYS{$keyid}->{uids}, {
+			push @{$KEYS{$keyid}->{uids}}, {
 				type => $1,
 				validity => $2,
 				hash => $3,

Modified: trunk/gpgsigs/gpgsigs
===================================================================
--- trunk/gpgsigs/gpgsigs	2014-08-23 17:37:52 UTC (rev 691)
+++ trunk/gpgsigs/gpgsigs	2014-08-24 06:32:29 UTC (rev 692)
@@ -231,7 +231,7 @@
 						# the status fd instead
 						$uids{$key}->{$uid} = { type => 'uat' };
 					}
-					push $keys{$key}, $uid; # preserve order
+					push @{$keys{$key}}, $uid; # preserve order
 					next;
 				}
 				next unless $uid; # nothing to do on revoked uids
@@ -241,7 +241,7 @@
 					} else {
 						$sigs{$key}->{$uid}->{$1} //= [];
 						$sig = $sigs{$key}->{$uid}->{$1};
-						push $sig, { created => $2, expiring => $3, class => $4, revocable => 1 };
+						push @$sig, { created => $2, expiring => $3, class => $4, revocable => 1 };
 					}
 					next;
 				}