No indirect object syntax.

perlDreamer · perlDreamer · commit d7b04688487d · 2012-07-16T08:59:25.000-07:00
diff --git 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);
