diff --git a/webtools/PLIF/PLIF/Service/WWW.pm b/webtools/PLIF/PLIF/Service/WWW.pm index 010fed836a7e..1ea8eb41a528 100644 --- a/webtools/PLIF/PLIF/Service/WWW.pm +++ b/webtools/PLIF/PLIF/Service/WWW.pm @@ -57,9 +57,11 @@ sub get { my($app, $uri) = @_; my $request = HTTP::Request->new('GET', $uri); my $response = $self->ua->request($request); - # XXX no error handling - # XXX headers are not returned - return $response->content; + if (wantarray) { + return ($response->content, $response); + } else { + return $response->content; + } } sub unescapeHTML {