Clean ua() usage

This commit is contained in:
Xavier Guimard 2013-10-08 04:59:24 +00:00
parent 64886f4005
commit 092bed086e
2 changed files with 1 additions and 3 deletions

View File

@ -22,6 +22,7 @@ sub ua {
# TODO : LWP options to use a proxy for example
$_ua = LWP::UserAgent->new() or $self->abort($@);
push @{ $_ua->requests_redirectable }, 'POST';
$self->ua()->env_proxy();
return $_ua;
}

View File

@ -239,8 +239,6 @@ sub deleteCasSession {
sub callPgtUrl {
my ( $self, $pgtUrl, $pgtIou, $pgtId ) = splice @_;
$self->ua()->env_proxy();
# Build URL
my $url = $pgtUrl;
$url .= ( $pgtUrl =~ /\?/ ? '&' : '?' );
@ -253,7 +251,6 @@ sub callPgtUrl {
# Return result
return $response->is_success();
}
1;