From 189bf7d6c559dba225ef44f65e5367a8f6698637 Mon Sep 17 00:00:00 2001
From: William E Little Jr <90572149+bmodotdev@users.noreply.github.com>
Date: Sat, 20 Jan 2024 10:47:39 -0600
Subject: [PATCH] feat(perl): Update agent to use version constant (#17665)

close #14297
---
 .../src/main/resources/perl/Configuration.mustache              | 2 +-
 .../client/petstore/perl/lib/WWW/OpenAPIClient/Configuration.pm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/modules/openapi-generator/src/main/resources/perl/Configuration.mustache b/modules/openapi-generator/src/main/resources/perl/Configuration.mustache
index 346f5e305580..be4d8bee73ef 100644
--- a/modules/openapi-generator/src/main/resources/perl/Configuration.mustache
+++ b/modules/openapi-generator/src/main/resources/perl/Configuration.mustache
@@ -82,7 +82,7 @@ sub new {
 
     # class/static variables
     $p{http_timeout} //= 180;
-    $p{http_user_agent} //= '{{{httpUserAgent}}}{{^httpUserAgent}}OpenAPI-Generator/{{{moduleVersion}}}/perl{{/httpUserAgent}}';
+    $p{http_user_agent} //= '{{{httpUserAgent}}}{{^httpUserAgent}}OpenAPI-Generator/' . VERSION . '/perl{{/httpUserAgent}}';
 
     # authentication setting
     $p{api_key} //= {};
diff --git a/samples/client/petstore/perl/lib/WWW/OpenAPIClient/Configuration.pm b/samples/client/petstore/perl/lib/WWW/OpenAPIClient/Configuration.pm
index 5282ac09acb9..bfaec929d1b2 100644
--- a/samples/client/petstore/perl/lib/WWW/OpenAPIClient/Configuration.pm
+++ b/samples/client/petstore/perl/lib/WWW/OpenAPIClient/Configuration.pm
@@ -95,7 +95,7 @@ sub new {
 
     # class/static variables
     $p{http_timeout} //= 180;
-    $p{http_user_agent} //= 'OpenAPI-Generator/1.0.0/perl';
+    $p{http_user_agent} //= 'OpenAPI-Generator/' . VERSION . '/perl';
 
     # authentication setting
     $p{api_key} //= {};