ext/List-Util/t/stack-corruption.t

   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     }
  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     }
  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 }