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

#!./perl

BEGIN {
    unless (-d 'blib') {
	chdir 't' if -d 't';
	@INC = '../lib';
	require Config; import Config;
	keys %Config; # Silence warning
	if ($Config{extensions} !~ /\bList\/Util\b/) {
	    print "1..0 # Skip: List::Util was not built\n";
	    exit 0;
	}
    }
    if ($] eq "5.008009" or $] eq "5.010000" or $] le "5.006002") {
        print "1..0 # Skip: known to fail on $]\n";
        exit 0;
    }
}

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 {
	4	unless (-d 'blib') {
	5	chdir 't' if -d 't';
	6	@INC = '../lib';
	7	require Config; import Config;
	8	keys %Config; # Silence warning
	9	if ($Config{extensions} !~ /\bList\/Util\b/) {
	10	print "1..0 # Skip: List::Util was not built\n";
	11	exit 0;
	12	}
	13	}
2ff28616 GB	14	if ($] eq "5.008009" or $] eq "5.010000" or $] le "5.006002") {
	15	print "1..0 # Skip: known to fail on $]\n";
	16	exit 0;
	17	}
8f42c23d AV	18	}
	19
	20	use List::Util qw(reduce);
	21	use Test::More tests => 1;
	22
	23	my $ret = "original";
	24	$ret = $ret . broken();
	25	is($ret, "originalreturn");
	26
	27	sub broken {
	28	reduce { return "bogus"; } qw/some thing/;
	29	return "return";
	30	}