1--- Class-Std-0.011/lib/Class/Std.pm.orig 2013-03-05 16:13:33.000000000 -0800 2+++ Class-Std-0.011/lib/Class/Std.pm 2013-03-05 16:13:59.000000000 -0800 3@@ -519,6 +519,7 @@ 4 5 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