Merge PR #87 #87

interchange · Mar 22, 2018 · ce093a2 · ce093a2
2 parents 49e38c1 + 526513b
commit ce093a2
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/lib/Vend/Payment/PaypalExpress.pm b/lib/Vend/Payment/PaypalExpress.pm
@@ -964,7 +964,13 @@ sub paypalexpress {
 
  	    $method = SOAP::Data->name('SetExpressCheckoutReq')->attr({xmlns=>$xmlns});
 	    $response = $service->call($header, $method => $request);
-	    %result = %{$response->valueof('//SetExpressCheckoutResponse')};
+
+      my $result_hashref = $response->valueof('//SetExpressCheckoutResponse');
+      unless ($result_hashref) {
+          $Tag->error({ name => 'paypal_failure', set => errmsg('Unable to parse the PayPal response') });
+          return $Tag->deliver({ location => $checkouturl });
+      }
+	    %result = %$result_hashref;
 		$::Scratch->{'token'} = $result{'Token'};
 #::logDebug("PP".__LINE__.": result= ".::uneval(%result)); # ### NOTE  
    if (!$result{'Token'}) {