File caff-perl_5.18_compatibility.patch of Package signing-party

--- a/caff/caff       2015-10-29 17:03:56.000000000 +0100
+++ b/caff/caff        2015-11-23 14:37:28.129132595 +0100
@@ -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;