Fixed user_agent assignment

musicinmybrain · May 7, 2022 · 593d90f · 593d90f
1 parent 6c73245
commit 593d90f
Showing 1 changed file with 3 additions and 6 deletions.
diff --git a/lib/Grpc/Client/BaseStub.pm b/lib/Grpc/Client/BaseStub.pm
@@ -34,13 +34,10 @@ sub new {
 	my $credentials        = $param{"credentials"};
 	my $timeout            = $param{"timeout"};
 
-	if (defined($primary_user_agent)) {
-		$primary_user_agent .= " ";
-	} else {
-		$primary_user_agent = "";
+	unless (defined($primary_user_agent))
+		$primary_user_agent = "grpc-perl/".($Grpc::XS::VERSION);
 	}
-	$primary_user_agent = "grpc-perl/".($Grpc::XS::VERSION);
-
+
 	if (!exists($param{"credentials"})) {
 		die("The 'credentials' key is now required. Please see one of the ".
 			  "Grpc::XS::ChannelCredentials::create methods");