patch for symbol table/package lookup bug

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