git://git.jankratochvil.net
/
MyWeb.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
3b8aaf2
)
Fixed some packages listing stability.
author
short
<>
Wed, 19 Oct 2005 02:55:29 +0000
(
02:55
+0000)
committer
short
<>
Wed, 19 Oct 2005 02:55:29 +0000
(
02:55
+0000)
Web.pm
patch
|
blob
|
history
diff --git
a/Web.pm
b/Web.pm
index
f2c45cf
..
48ad926
100644
(file)
--- a/
Web.pm
+++ b/
Web.pm
@@
-221,8
+221,10
@@
my($class,%args)=@_;
$$_=0 if !defined $$_;
}
}
$$_=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"}) {
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"};
}
$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()
{
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;
}
{
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(),
my %uri_args_hash=(
"method"=>$W->{"r"}->method(),
"uri"=>"http://".$W->{"web_hostname"}."/".$W->{"r"}->uri(),