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