X-Git-Url: http://git.jankratochvil.net/?p=MyWeb.git;a=blobdiff_plain;f=Web.pm;h=8244e59b7f34863866dec19a1a6511effcd159c9;hp=ae77471f2ee8bb366b9125574ed7be2616921193;hb=312aff9cc8388402560b84502cb7dd09b035f3f9;hpb=26a1732cc168cb2069c96b917eb6e879b6cf7c89

diff --git a/Web.pm b/Web.pm
index ae77471..8244e59 100644
--- a/Web.pm
+++ b/Web.pm
@@ -144,7 +144,9 @@ my($class,%args)=@_;
 	Wrequire 'My::Hash';
 
 	# $W={} can get somehow created very easily.
-	cluck "W not empty:\n".Dumper($W) if keys(%$W);
+	# Do not: cluck "W not empty:\n".Dumper($W) if keys(%$W);
+	# to prevent (of $W->{"headers_in"}): TODO: Enumeration may not be expected.
+	cluck "W not empty; __PACKAGE__ was: ".$W->{"__PACKAGE__"} if keys(%$W);
 	$W=My::Hash->new({},"My::Hash::Sub","My::Hash::Push");
 	bless $W,$class;
 	%$W=(