Bug#487262: reduce/pairwise combo doesn't work

[Anthony DeRobertis]

Package: liblist-moreutils-perl
Version: 0.21-1
Severity: normal
File: /usr/lib/perl5/List/MoreUtils.pm

It'd be nice if this worked:

use List::Util qw/reduce/;
use List::MoreUtils qw/pairwise/;
use strict;
my $data = [[1, 2, 3], [4, 5, 6], [7, 8, 9]];
my $total = reduce { [ pairwise { $a + $b } @$a, @$b ] } @$data;
print join(", ", @$total), "\n";

expected:
12, 15, 18

got:
Can't use string ("3") as an ARRAY ref while "strict refs" in use at /tmp/foo.pl line 5.

It looks like the localization of $a and $b isn't working correctly, and
reduce's $a and $b are being messed up. I tried RTFS, but I don't
understand why it's happening.

I tried with perl 5.10.0-10 (debian testing), and same error.

-- System Information:
Debian Release: 4.0
  APT prefers stable
  APT policy: (500, 'stable')
Architecture: i386 (i686)
Shell:  /bin/sh linked to /bin/bash
Kernel: Linux 2.6.22-4-686
Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8)

Versions of packages liblist-moreutils-perl depends on:
ii  libc6                  2.3.6.ds1-13etch5 GNU C Library: Shared libraries
ii  perl                   5.8.8-7etch3      Larry Wall's Practical Extraction 
ii  perl-base [perlapi-5.8 5.8.8-7etch3      The Pathologically Eclectic Rubbis

liblist-moreutils-perl recommends no packages.

-- no debconf information