V��t��zslav ������ek changed bug 955986
What Removed Added
Status NEW CONFIRMED
CC   vcizek@suse.com

Comment # 4 on bug 955986 from
caff uses a new perl syntax, added in 5.20:
http://search.cpan.org/~rjbs/perl-5.20.0/pod/perldata.pod#Key/Value_Hash_Slices

We have to use perl 5.18 syntax, eg something like this:

> diff -u /usr/bin/caff caff
--- /usr/bin/caff       2015-10-29 17:03:56.000000000 +0100
+++ 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;


You are receiving this mail because: