From 6a5983816d5cff3e6f1a0121c8d689881cc905a1 Mon Sep 17 00:00:00 2001
From: bernhard <Bernhard.Schmalhofer@gmx.de>
Date: Mon, 24 Jan 2022 14:24:00 +0100
Subject: [PATCH] Issue #1471: remove an unused variable

---
 Kernel/GenericInterface/Transport/HTTP/REST.pm | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/Kernel/GenericInterface/Transport/HTTP/REST.pm b/Kernel/GenericInterface/Transport/HTTP/REST.pm
index 2a37614091..b62a38f3be 100644
--- a/Kernel/GenericInterface/Transport/HTTP/REST.pm
+++ b/Kernel/GenericInterface/Transport/HTTP/REST.pm
@@ -885,8 +885,7 @@ sub RequesterPerformRequest {
     # the actual request to the remote service
     $RestClient->$RestCommand(@RequestParam);
 
-    my $ErrorMessage = "Error while performing REST '$RestCommand' request to Controller '$Controller' on Host '"
-        . $Config->{Host} . "'.";
+    my $ErrorMessage = "Error while performing REST '$RestCommand' request to Controller '$Controller' on Host '$Config->{Host}'.";
     my $ResponseError;
     if ( $Param{CustomResponseAssessor} ) {
         $ResponseError = $Param{CustomResponseAssessor}->(
@@ -1048,16 +1047,13 @@ sub _ThrowWebException {
     my ( $Self, %Param ) = @_;
 
     # Check params.
-    my $ErrorMessage;
     if ( defined $Param{HTTPCode} && !IsInteger( $Param{HTTPCode} ) ) {
         $Param{HTTPCode} = 500;
         $Param{Content}  = 'Invalid internal HTTPCode';
-        $ErrorMessage    = 'Invalid internal HTTPCode';
     }
     elsif ( defined $Param{Content} && !IsString( $Param{Content} ) ) {
         $Param{HTTPCode} = 500;
         $Param{Content}  = 'Invalid Content';
-        $ErrorMessage    = 'Invalid Content';
     }
 
     # FIXME: according to SOAP::Transport::HTTP the previous should not be used