No indirect object syntax.

plainblack · Jul 16, 2012 · d7b0468 · d7b0468
1 parent f25e394
commit d7b0468
Showing 1 changed file with 2 additions and 2 deletions.
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);