John Trammell wrote:
#!perl
use strict;
use warnings;
sub foo {
warn "wantarray() in foo() is: ", wantarray(), "\n";
my @r = 3 .. 8;
return @r;
}
my @x = foo() or warn "in ... or warn() #1\n";
warn "\@x: @x\n";
my $x = foo() or warn "in ... or warn() #2\n";
warn "\$x: $x\n";
Perhaps I'm just being dense, but how is this relevant? Michael