[Libguestfs] [PATCH 2/2] ESX: Work with older LWP::UserAgent api

Update ESX to work with newer and older LWP::UserAgent api. --- lib/Sys/VirtV2V/Transfer/ESX.pm | 18 +++++++++--------- 1 files changed, 9 insertions(+), 9 deletions(-) diff --git a/lib/Sys/VirtV2V/Transfer/ESX.pm b/lib/Sys/VirtV2V/Transfer/ESX.pm index 705ca25..4d65d5e 100644 --- a/lib/Sys/VirtV2V/Transfer/ESX.pm +++ b/lib/Sys/VirtV2V/Transfer/ESX.pm @@ -59,21 +59,15 @@ sub new { agent => 'virt-v2v/'.$Sys::VirtV2V::VERSION, protocols_allowed => [ 'https' ] ); - $self->show_progress(1); - $self->add_handler(response_header => sub { - my ($response, $self, $h) = @_; - - if ($response->is_success) { - $self->verify_certificate($response) unless ($noverify); - $self->create_volume($response); - } - }); + # Older versions of LWP::UserAgent don't support show_progress + $self->show_progress(1) if ($self->can('show_progress')); $self->{_v2v_server} = $server; $self->{_v2v_target} = $target; $self->{_v2v_username} = $username; $self->{_v2v_password} = $password; + $self->{_v2v_noverify} = $noverify; if ($noverify) { # Unset HTTPS_CA_DIR if it is already set @@ -177,6 +171,12 @@ sub handle_data my ($data, $response) = @_; + # Create the volume if it hasn't been created already + if (!defined($self->{_v2v_vol}) && $response->is_success) { + $self->verify_certificate($response) unless ($self->{_v2v_noverify}); + $self->create_volume($response); + } + $self->{_v2v_received} += length($data); $self->{_v2v_vol}->write($data); } -- 1.6.6.1