Skip to content
Permalink
Browse files

No indirect object syntax.

  • Loading branch information...
perlDreamer committed Jul 16, 2012
1 parent f25e394 commit d7b04688487d92288da1ab14a188355c45113fa3
Showing with 2 additions and 2 deletions.
  1. +2 −2 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);

0 comments on commit d7b0468

Please sign in to comment.
You can’t perform that action at this time.