[Pgp-tools-commit] r824 - in trunk: caff debian

[Guilhem Moulin]

Author: guilhem-guest
Date: 2016-02-02 13:38:04 +0000 (Tue, 02 Feb 2016)
New Revision: 824

Modified:
   trunk/caff/caff
   trunk/debian/changelog
Log:
Replace a hash slice with a reverse map for compatibility with older Perl.

Modified: trunk/caff/caff
===================================================================
--- trunk/caff/caff	2016-01-31 16:56:52 UTC (rev 823)
+++ trunk/caff/caff	2016-02-02 13:38:04 UTC (rev 824)
@@ -773,7 +773,7 @@
     # ignore direct and dup handles
     my @infhs  = grep {defined $opts{$_}      and !$handles->options($_)->{direct} and $handles->{$_} !~ /^[<>]&/} qw/stdin passphrase command/;
     my @outfhs = grep {defined $handles->{$_} and !$handles->options($_)->{direct} and $handles->{$_} !~ /^[<>]&/} qw/stdout stderr status logger/;
-    my %fh = reverse %$handles{@infhs, @outfhs};
+    my %fh = map { $handles->{$_} => $_ } (@infhs, @outfhs);
 
     my %offset = map {$_ => 0}  @infhs;
     my %output = map {$_ => ''} @outfhs;

Modified: trunk/debian/changelog
===================================================================
--- trunk/debian/changelog	2016-01-31 16:56:52 UTC (rev 823)
+++ trunk/debian/changelog	2016-02-02 13:38:04 UTC (rev 824)
@@ -1,3 +1,11 @@
+signing-party (2.3-1) UNRELEASED; urgency=low
+
+  * caff:
+    + Replace a hash slice with a reverse map for compatibility with Perl
+      older than 5.20.  Patch from Gregor Jasny.  (Closes: 813469)
+
+ -- Guilhem Moulin <guilhem at guilhem.org>  Tue, 02 Feb 2016 14:31:32 +0100
+
 signing-party (2.2-1) unstable; urgency=low
 
   * caff: