From: Dave Rolsky Date: Wed, 3 Sep 2008 17:09:22 +0000 (+0000) Subject: Need parens on this sub now. X-Git-Tag: 0.66~10 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=07f7cd965141b260f5da5c6fb51528bd39bd5a01;p=gitmo%2FClass-MOP.git Need parens on this sub now. --- diff --git a/lib/Class/MOP/Class.pm b/lib/Class/MOP/Class.pm index f6eb55f..9136f86 100644 --- a/lib/Class/MOP/Class.pm +++ b/lib/Class/MOP/Class.pm @@ -212,7 +212,7 @@ sub check_metaclass_compatability { sub DESTROY { my $self = shift; - return if Class::MOP::in_global_destruction; # it'll happen soon anyway and this just makes things more complicated + return if Class::MOP::in_global_destruction(); # it'll happen soon anyway and this just makes things more complicated no warnings 'uninitialized'; return unless $self->name =~ /^$ANON_CLASS_PREFIX/;