sub serve_cache_mod_perl {
my ($cache_location,$r) = @_;
if (not defined $cache_location or not length $cache_location) {
# serve the default image
$cache_location = $config{libravatar_default_image};
}
sub serve_cache_mod_perl {
my ($cache_location,$r) = @_;
if (not defined $cache_location or not length $cache_location) {
# serve the default image
$cache_location = $config{libravatar_default_image};
}