From d7b04688487d92288da1ab14a188355c45113fa3 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 16 Jul 2012 08:59:25 -0700
Subject: [PATCH] No indirect object syntax.

---
 lib/WebGUI/Cache.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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);