From: Steve Scaffidi <sscaffidi@gmail.com>
Date: Sat, 27 Jun 2009 04:32:30 +0000 (-0400)
Subject: FINALLY fixed class-loading symbol-table lookup bug\!
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cfe2d20ef20495269c7aacb3eb58c0ebc7b0fe6e;p=urisagit%2FStem.git

FINALLY fixed class-loading symbol-table lookup bug\!
---

diff --git a/lib/Stem/Conf.pm b/lib/Stem/Conf.pm
index 9def747..cff47ba 100644
--- a/lib/Stem/Conf.pm
+++ b/lib/Stem/Conf.pm
@@ -230,7 +230,11 @@ sub configure {
 
 		no strict 'refs' ;
 
-		unless ( %{"${class}::"} ) {
+        my %loaded_packages = map { $_ => 1 } keys %{*{"main\::"}};
+
+		unless ( $loaded_packages{"$class\::"} ) {
+
+#print "attempting to load $class\n";
 
 			my $module = $class ;
 			$module =~ s{::}{/}g ;