feat(perl): Update agent to use version constant (#17665)

close #14297
OpenAPITools · Jan 20, 2024 · 189bf7d · 189bf7d
1 parent 3dcef82
commit 189bf7d
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git 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
@@ -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} //= {};