From d08b7de7c2deb6c1846ccc659b0ef2a39563f97f Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Fri, 17 Nov 2006 22:30:15 +0000
Subject: [PATCH]  * stop using eval to wrap the goto, which is broken in 5.8.4
 or thereabouts

git-svn-id: file:///srv/don_svn/class_modular/trunk@45 96c6a18b-02ce-0310-9fca-9eb62c757ba6
---
 lib/Class/Modular.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/Class/Modular.pm b/lib/Class/Modular.pm
index c3f1c0a..c532a94 100644
--- a/lib/Class/Modular.pm
+++ b/lib/Class/Modular.pm
@@ -72,7 +72,7 @@ use Storable qw(dclone); # Used for deep copying objects
 use Safe; # Use Safe when we are dealing with coderefs
 
 BEGIN{
-     $VERSION = q$0.04SVN$;
+     $VERSION = q$0.05SVN$;
      ($REVISION) = q$LastChangedRevision$ =~ /\$LastChangedRevision:\s+([^\s+])/;
      $DEBUG = 0 unless defined $DEBUG;
      $USE_SAFE = 1 unless defined $USE_SAFE;
@@ -465,9 +465,9 @@ sub AUTOLOAD{
 
      if (exists $self->{$cm}{_methodhash}{$method} and
 	 defined $self->{$cm}{_methodhash}{$method}{reference}) {
-	  eval {
-	       no strict 'refs';
-	       goto &{$self->{$cm}{_methodhash}{$method}{reference}};
+	  {
+	      my $method = \&{$self->{$cm}{_methodhash}{$method}{reference}};
+	      goto &$method;
 	  }
      }
      else {
-- 
2.39.2