From: Steve Scaffidi <sscaffidi@gmail.com>
Date: Wed, 26 Aug 2009 16:02:08 +0000 (-0400)
Subject: patch for symbol table/package lookup bug
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f46dc912ff9d9ebcef403b46923fcd117a42d460;p=urisagit%2FStem.git

patch for symbol table/package lookup bug
---

diff --git a/lib/Stem/Conf.pm b/lib/Stem/Conf.pm
index 8eed0c4..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 ;