diff --git a/lib/WebGUI/Cache.pm b/lib/WebGUI/Cache.pm index 1a7b826b8..1cc702a57 100644 --- a/lib/WebGUI/Cache.pm +++ b/lib/WebGUI/Cache.pm @@ -230,11 +230,11 @@ sub setByHTTP { my $self = shift; my $url = shift; my $ttl = shift; - my $userAgent = new LWP::UserAgent; + my $userAgent = LWP::UserAgent->new(); $userAgent->env_proxy; $userAgent->agent("WebGUI/".$WebGUI::VERSION); $userAgent->timeout(30); - my $header = new HTTP::Headers; + my $header = HTTP::Headers->new(); my $referer = "http://webgui.http.request/".$self->session->env->get("SERVER_NAME").$self->session->env->get("REQUEST_URI"); chomp $referer; $header->referer($referer);