1#!./perl 2 3BEGIN { 4 if ($] eq "5.008009" or $] eq "5.010000" or $] le "5.006002") { 5 print "1..0 # Skip: known to fail on $]\n"; 6 exit 0; 7 } 8} 9 10use strict; 11use warnings; 12 13use List::Util qw(reduce); 14use Test::More tests => 1; 15 16my $ret = "original"; 17$ret = $ret . broken(); 18is($ret, "originalreturn"); 19 20sub broken { 21 reduce { return "bogus"; } qw/some thing/; 22 return "return"; 23} 24