recurse-c3-taint.pl

use strict;
use warnings;
use mro ();

BEGIN {
  package Super;
  use mro 'c3';
  sub foo {
    $_[0]->maybe::next::method;
  }
}
BEGIN {
  package Parent1;
  BEGIN { our @ISA = qw(Super) }
  use mro 'c3';
}
BEGIN {
  package Parent2;
  BEGIN { our @ISA = qw(Super) }
  use mro 'c3';
}

BEGIN {
  package Mine;
  BEGIN { our @ISA = qw(Parent1 Parent2) }
  use mro 'c3';
}

my $class = "Mine" . substr($ENV{PATH},0,0);
mro::get_linear_isa($class);
Mine->foo; # will recurse infinitely
$class->foo; # will die due to taint