reduce { print         wantarray ? "array\n"  :
               defined wantarray ? "scalar\n" : "void\n" } 1 .. 2;

# prints "void"
[download]

Certainly I agree that you are right, that this must be a bug in List::Util. The block should be in scalar context since the return value is the important part of this operation. I really wonder how the module can get the return value of something that it executes in void context??

Also, I got some strange behavoir when I add a return statement to the eval. Both should behave the same way, but don't. Why on earth $a gets set to 4 for every addition is a mystery...

my $result = reduce { print "eval: $a + $b\n"; 
                      eval "$a + $b" }
             1 .. 4;
print "result=$result\n\n";
 
# eval: 1 + 2
# eval:  + 3
# eval:  + 4
# result=4


$result = reduce { print "eval: return $a + $b\n";
                   eval "return $a + $b" }
          1 .. 4;
print "result=$result\n\n";

# eval: return 1 + 2
# eval: return 4 + 3
# eval: return 4 + 4
# result=4
[download]

blokhead

Your code prints "scalar" for me as well.

I'm using Perl 5.6.1, List::Util 1.11.

Very strange indeed.

#!/usr/bin/perl -w

use List::Util qw[ reduce ];

print reduce{ print "a = '$a', b = '$b'\n"; eval "showcontext($a + $b)
+";} 1,2,3;

sub showcontext
{
  print "Context: ";
  if (wantarray) {
    print "array\n";
  }
  elsif (defined(wantarray)) {
    print "scalar\n";
  }
  else {
    print "void\n";
  }
  $_[0];
}
[download]

$ perl /tmp/t76
a = '1', b = '2'
Context: scalar
Use of uninitialized value in concatenation (.) or string at /tmp/t76 line 5.
a = '', b = '3'
Use of uninitialized value in concatenation (.) or string at /tmp/t76 line 5.
Context: scalar
3

But it is in scalar context: try forcing a list contect by prefixing the eval with () = ;-)

Liz