This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix @{*ISA} autovivification
[perl5.git] / t / mro / basic.t
index e1a4dbf..188159e 100644 (file)
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-BEGIN { require q(./test.pl); } plan(tests => 53);
+BEGIN { require q(./test.pl); } plan(tests => 54);
 
 require mro;
 
@@ -338,3 +338,10 @@ is(eval { MRO_N->testfunc() }, 123);
     ok !Gwythaint->isa("Fantastic::Creature"),
        'obliterating @ISA via glob assignment';
 }
+
+{
+    # Autovivifying @ISA via @{*ISA}
+    undef *fednu::ISA;
+    @{*fednu::ISA} = "pyfg";
+    ok +fednu->isa("pyfg"), 'autovivifying @ISA via *{@ISA}';
+}