| … | … | ||
|---|---|---|---|
| 49 | my @blks; | 49 | my @blks; |
| 50 | 50 | ||
| 51 | ok 1; | 51 | ok 1; |
| 52 | my $i; | 52 | my $i; |
| 53 | for (@$idx1) { | 53 | for (@$idx1) { |
| 54 | $blks[$i++] = $_ < 3 ? $files[$_] : $blk[$_]; | 54 | $blks[$i++] = $_ < 3 ? $files[$_] : do { |
| 55 | # Create a shared hash key scalar as an extra robustness test. | ||
| 56 | $blk[$_] = (keys %{{$blk[$_]=>0}})[0]; | ||
| 57 | $blk[$_]; | ||
| 58 | }; | ||
| 55 | } | 59 | } |
| 56 | 60 | ||
| 57 | $fec->set_decode_blocks (\@blks, $idx1); | 61 | $fec->set_decode_blocks (\@blks, $idx1); |
| 58 | $fec->decode; | 62 | $fec->decode; |
| 59 | 63 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |