Fixed ommiting of the main / toplevel caller package from the used-list.
authorshort <>
Sat, 15 Oct 2005 13:09:16 +0000 (13:09 +0000)
committershort <>
Sat, 15 Oct 2005 13:09:16 +0000 (13:09 +0000)
Web.pm

diff --git a/Web.pm b/Web.pm
index 485d951..5c02334 100644 (file)
--- a/Web.pm
+++ b/Web.pm
@@ -67,7 +67,6 @@ BEGIN
                $callers{$selfpkg}=1;
                for my $target ($class,__PACKAGE__) {
                        for my $caller (keys(%callers)) {
-                               next if $caller eq $target;
                                next if $packages_used_hash{$caller}{$target}++;
                                cluck "Appending to the '_done' package list: caller=$caller,target=$target"
                                                if $packages_used_hash{$caller}{"_done"};