From: Don Armstrong <don@donarmstrong.com>
Date: Sun, 24 Oct 2004 06:58:51 +0000 (+0000)
Subject:  * Check correctly for undefined subroutines
X-Git-Url: https://git.donarmstrong.com/?p=class_modular.git%2F.git;a=commitdiff_plain;h=004afbb1165d27e1991383cd8c4ba14519c0eb1e

 * 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 cbb7c28..d833b73 100644
--- 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 {