From 0021db938ee2ad625cc8f2004d7a1113aee0f46a Mon Sep 17 00:00:00 2001
From: short <>
Date: Wed, 19 Oct 2005 02:55:29 +0000
Subject: [PATCH] Fixed some packages listing stability.

---
 Web.pm | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/Web.pm b/Web.pm
index f2c45cf..48ad926 100644
--- a/Web.pm
+++ b/Web.pm
@@ -221,8 +221,10 @@ my($class,%args)=@_;
 			$$_=0 if !defined $$_;
 			}
 		}
+	# Used only if: $W->{"http_safe"}
+	# but we would cause on different method(): Appending to the '_done' package list
+	Wrequire 'My::Hash::RecordKeys';
 	if ($W->{"http_safe"}) {
-		Wrequire 'My::Hash::RecordKeys';
 		$W->{"headers_in_RecordKeys"}=My::Hash::RecordKeys->new($W->{"headers_in"});
 		$W->{"headers_in"}=$W->{"headers_in_RecordKeys"};
 		}
@@ -1116,14 +1118,16 @@ my($f)=@_;
 
 sub cache_start()
 {
+	# Used only if: !$W->{"http_safe"}
+	# but we would cause on different method(): Appending to the '_done' package list
+	# &Wrequire it here even if it will not be later used; to be stable!
+	Wrequire 'My::Hash::RestrictTo';
 	if (!$W->{"http_safe"}) {
 		__PACKAGE__->_no_cache();
 		return;
 		}
 
 	{
-		# &Wrequire it here even if it will not be later used; to be stable!
-		Wrequire 'My::Hash::RestrictTo';
 		my %uri_args_hash=(
 			"method"=>$W->{"r"}->method(),
 			"uri"=>"http://".$W->{"web_hostname"}."/".$W->{"r"}->uri(),
-- 
1.8.3.1