X-Git-Url: https://git.jankratochvil.net/?p=MyWeb.git;a=blobdiff_plain;f=Web.pm;fp=Web.pm;h=5bc71e0824136e525f0e6e33a0d7f8e5493c6170;hp=d31ef5ecc90d8056228b27155e195285f3971310;hb=b7a13090b7f4a4ee4539f9a5e7019c809557a545;hpb=077b23f760ba965c7bba3c71d429badacdf68538;ds=sidebyside diff --git a/Web.pm b/Web.pm index d31ef5e..5bc71e0 100644 --- 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",...};