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:
077b23f
)
&a_href_cc: Allow the case of undefined {""} - it is sometimes needed.
author
short
<>
Thu, 15 Dec 2005 09:58:33 +0000
(09:58 +0000)
committer
short
<>
Thu, 15 Dec 2005 09:58:33 +0000
(09:58 +0000)
Web.pm
patch
|
blob
|
history
diff --git
a/Web.pm
b/Web.pm
index
d31ef5e
..
5bc71e0
100644
(file)
--- a/
Web.pm
+++ b/
Web.pm
@@
-905,13
+905,13
@@
sub a_href_cc($$;%)
{
my($url,$contents,%args)=@_;
- cluck if !$url->{""};
# A bit ineffective but we must process all the possibilities to get stable 'headers_in' hits!
my %map=map(($_=>a_href($url->{$_},$contents,%args)),keys(%$url));
my $r;
$r||=$map{_cc()};
$r||=$map{""};
- return $r;
+ return $r if $r;
+ return $contents;
}
# $tree={"JP"=>"specific",...};