Class-Std.diff   [plain text]

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