Unexpected field value http://search.cpan.org at (eval 5) line 1

##</code><code>##

Unexpected field value http://search.cpan.org at C:/ActivePerl/site/lib/HTTP/Headers.pm line 256

HTTP::Headers::_header('HTTP::Headers=HASH(0x2249820)', 'Referer', 'http://search.cpan.org')  called at C:/ActivePerl/site/lib/HTTP/Headers.pm line 150

(etc)

##</code><code>##

if (!ref($val)) {
    push(@new, $val);
} elsif (ref($val) eq 'ARRAY') {
    push(@new, @$val);
} else {
    Carp::croak("Unexpected field value $val");
}

##</code><code>##

$VAR1 = bless( do{\(my $o = 'http://search.cpan.org')}, 'URI::http' );