[perl5.git] / cpan / Scalar-List-Utils / t / stack-corruption.t

#!./perl

BEGIN {
    if ($] eq "5.008009" or $] eq "5.010000" or $] le "5.006002") {
        print "1..0 # Skip: known to fail on $]\n";
        exit 0;
    }
}

use strict;
use warnings;

use List::Util qw(reduce);
use Test::More tests => 1;

my $ret = "original";
$ret = $ret . broken();
is($ret, "originalreturn");

sub broken {
    reduce { return "bogus"; } qw/some thing/;
    return "return";
}
Commit	Line	Data
8f42c23d AV	1	#!./perl
	2
	3	BEGIN {
2ff28616 GB	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	}
8f42c23d AV	8	}
8f42c23d AV	9
b823713c CBW	10	use strict;
	11	use warnings;
	12
8f42c23d AV	13	use List::Util qw(reduce);
	14	use Test::More tests => 1;
	15
	16	my $ret = "original";
	17	$ret = $ret . broken();
	18	is($ret, "originalreturn");
	19
	20	sub broken {
	21	reduce { return "bogus"; } qw/some thing/;
	22	return "return";
	23	}