From b7a13090b7f4a4ee4539f9a5e7019c809557a545 Mon Sep 17 00:00:00 2001
From: short <>
Date: Thu, 15 Dec 2005 09:58:33 +0000
Subject: [PATCH] &a_href_cc: Allow the case of undefined {""} - it is
 sometimes needed.

---
 Web.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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",...};
-- 
1.8.3.1