* Check correctly for undefined subroutines

git-svn-id: file:///srv/don_svn/class_modular/trunk@28 96c6a18b-02ce-0310-9fca-9eb62c757ba6

diff --git a/lib/Class/Modular.pm b/lib/Class/Modular.pm
index cbb7c28571d0ce898ef6cc7c3653df1fa6cef646..d833b73894d492eaa0b61b4e893d37c9dccd4f1b 100644 (file)
--- a/lib/Class/Modular.pm
+++ b/lib/Class/Modular.pm
@@ -70,7 +70,7 @@ use Carp;
 use Storable qw(dclone); # Used for deep copying objects
 
 BEGIN{
-     $VERSION = q$0.01SVN$;
+     $VERSION = q$0.03SVN$;
      ($REVISION) = q$LastChangedRevision$ =~ /\$LastChangedRevision:\s+([^\s+])/;
      $DEBUG = 0 unless defined $DEBUG;
 }
@@ -411,7 +411,7 @@ sub DESTROY{
               &{"${subclass}::_destroy"}($self);
          };
          if ($@) {
-              if ($@ !~ /^Undefined function ${subclass}::_destroy at [^\n]*$/){
+              if ($@ !~ /^Undefined subroutine \&${subclass}::_destroy called at [^\n]*$/){
                    die "Failed while trying to destroy: $@";
               }
               else {