Make delete $package::{ISA} work

1 files changed, 9 insertions, 1 deletions

diff --git a/t/mro/basic.t b/t/mro/basic.t
index 1ecfd213a0..c6f25429b8 100644
--- a/t/mro/basic.t
+++ b/t/mro/basic.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-BEGIN { require q(./test.pl); } plan(tests => 50);
+BEGIN { require q(./test.pl); } plan(tests => 51);
 
 require mro;
 
@@ -312,3 +312,11 @@ is(eval { MRO_N->testfunc() }, 123);
     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}';
+}