This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Revert change #31489.
[perl5.git] / t / mro / basic.t
index 332782e..e679275 100644 (file)
@@ -127,6 +127,8 @@ is(eval { MRO_N->testfunc() }, 123);
 }
 
 # clearing @ISA in different ways
 }
 
 # clearing @ISA in different ways
+#  some are destructive to the package, hence the new
+#  package name each time
 {
     no warnings 'uninitialized';
     {
 {
     no warnings 'uninitialized';
     {
@@ -141,6 +143,7 @@ is(eval { MRO_N->testfunc() }, 123);
     $ISACLEAR::ISA[1] = undef;
     ok(eq_array(mro::get_linear_isa('ISACLEAR'),[qw/ISACLEAR XX main ZZ/]));
 
     $ISACLEAR::ISA[1] = undef;
     ok(eq_array(mro::get_linear_isa('ISACLEAR'),[qw/ISACLEAR XX main ZZ/]));
 
+    # undef the array itself
     undef @ISACLEAR::ISA;
     ok(eq_array(mro::get_linear_isa('ISACLEAR'),[qw/ISACLEAR/]));
 }
     undef @ISACLEAR::ISA;
     ok(eq_array(mro::get_linear_isa('ISACLEAR'),[qw/ISACLEAR/]));
 }