esobchenko · March 22, 2011 20:26
diff --git a/gistfile1.pl b/gistfile1.pl
 #!/usr/bin/env perl

 use strict;
 use warnings;
 use Data::Dumper;

 sub foo {
        wantarray ? () : undef;
 }

 my @a = map { foo() } qw/1 2 3/;
 print Dumper( \@a ); # will dump: $VAR1 = [];
	#!/usr/bin/env perl

	use strict;
	use warnings;
	use Data::Dumper;

	sub foo {
	wantarray ? () : undef;
	}

	my @a = map { foo() } qw/1 2 3/;
	print Dumper( \@a ); # will dump: $VAR1 = [];