X-Git-Url: http://git.jankratochvil.net/?p=MyWeb.git;a=blobdiff_plain;f=Web.pm;h=5bc71e0824136e525f0e6e33a0d7f8e5493c6170;hp=d84cadc17461d294fa3be4ef82bad9d6bfe9ddb8;hb=b7a13090b7f4a4ee4539f9a5e7019c809557a545;hpb=e8d9508cb8e92d8672b75e888cfa5119ccc690c3;ds=sidebyside

diff --git a/Web.pm b/Web.pm
index d84cadc..5bc71e0 100644
--- a/Web.pm
+++ b/Web.pm
@@ -907,7 +907,9 @@ my($url,$contents,%args)=@_;
 
 	# 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=$map{_cc()};
+	my $r;
+	$r||=$map{_cc()};
+	$r||=$map{""};
 	return $r if $r;
 	return $contents;
 }
@@ -918,7 +920,11 @@ sub text_cc($)
 {
 my($tree)=@_;
 
-	return $tree->{_cc()};
+	cluck if !$tree->{""};
+	my $r;
+	$r||=$tree->{_cc()};
+	$r||=$tree->{""};
+	return $r;
 }
 
 sub make ($)