1--- Class-Std/lib/Class/Std.pm 2+++ Class-Std/lib/Class/Std.pm 3@@ -520,6 +520,7 @@ 4 5 DEMOLISH: for my $base_class (_hierarchy_of(ref $_[0])) { 6 no strict 'refs'; 7+ no warnings; 8 if (my $demolish_ref = *{$base_class.'::DEMOLISH'}{CODE}) { 9 &{$demolish_ref}; 10 } 11