What | Removed | Added |
---|---|---|
Status | NEW | CONFIRMED |
CC | vcizek@suse.com |
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;