+
+{
+ # @main::ISA
+ no warnings 'once';
+ @main::ISA = 'parent';
+ my $output = '';
+ *parent::do = sub { $output .= 'parent' };
+ *parent2::do = sub { $output .= 'parent2' };
+ main->do;
+ @main::ISA = 'parent2';
+ main->do;
+ is $output, 'parentparent2', '@main::ISA is magical';
+}
+
+{
+ # Undefining *ISA, then modifying @ISA
+ # This broke Class::Trait. See [perl #79024].
+ {package Class::Trait::Base}
+ no strict 'refs';
+ undef *{"Extra::TSpouse::ISA"};
+ 'Extra::TSpouse'->isa('Class::Trait::Base'); # cache the mro
+ unshift @{"Extra::TSpouse::ISA"}, 'Class::Trait::Base';
+ ok 'Extra::TSpouse'->isa('Class::Trait::Base'),
+ 'a isa b after undef *a::ISA and @a::ISA modification';
+}
+
+{
+ # Deleting $package::{ISA}
+ # Broken in 5.10.0; fixed in 5.13.7
+ @Blength::ISA = 'Bladd';
+ delete $Blength::{ISA};
+ ok !Blength->isa("Bladd"), 'delete $package::{ISA}';
+}
+
+{
+ # Undefining stashes
+ @Thrext::ISA = "Thwit";
+ @Thwit::ISA = "Sile";
+ undef %Thwit::;
+ ok !Thrext->isa('Sile'), 'undef %package:: updates subclasses';
+}
+
+{
+ # Obliterating @ISA via glob assignment
+ # Broken in 5.14.0; fixed in 5.17.2
+ @Gwythaint::ISA = "Fantastic::Creature";
+ undef *This_glob_haD_better_not_exist; # paranoia; must have no array
+ *Gwythaint::ISA = *This_glob_haD_better_not_exist;
+ ok !Gwythaint->isa("Fantastic::Creature"),
+ 'obliterating @ISA via glob assignment';
+}
+
+{
+ # Autovivifying @ISA via @{*ISA}
+ no warnings;
+ undef *fednu::ISA;
+ @{*fednu::ISA} = "pyfg";
+ ok +fednu->isa("pyfg"), 'autovivifying @ISA via *{@ISA}';
+}
+
+{
+ sub Detached::method;
+ my $h = delete $::{"Detached::"};
+ eval { local *Detached::method };
+ is $@, "", 'localising gv-with-cv belonging to detached package';
+}
+
+{
+ # *ISA localisation
+ @il::ISA = "ilsuper";
+ sub ilsuper::can { "puree" }
+ sub il::tomatoes;
+ {
+ local *il::ISA;
+ is +il->can("tomatoes"), \&il::tomatoes, 'local *ISA';
+ }
+ is "il"->can("tomatoes"), "puree", 'local *ISA unwinding';
+ {
+ local *il::ISA = [];
+ is +il->can("tomatoes"), \&il::tomatoes, 'local *ISA = []';
+ }
+ is "il"->can("tomatoes"), "puree", 'local *ISA=[] unwinding';
+}