add DBD::mysql::client_version() to have the client version without D…

…B connections
perl5-dbi · Oct 6, 2023 · b77582d · b77582d
1 parent 60705e2
commit b77582d
Show file tree

Hide file tree

Showing 4 changed files with 12 additions and 1 deletion.
diff --git a/dbdimp.c b/dbdimp.c
@@ -2031,7 +2031,7 @@ signed_my_ulonglong2str(my_ulonglong val, char *buf, STRLEN *len)
 }
 #endif
 
-static SV*
+SV*
 my_ulonglong2sv(pTHX_ my_ulonglong val)
 {
 #if IVSIZE >= 8

diff --git a/dbdimp.h b/dbdimp.h
@@ -293,3 +293,5 @@ int mysql_st_free_result_sets (SV * sth, imp_sth_t * imp_sth);
 int mysql_db_async_result(SV* h, MYSQL_RES** resp);
 int mysql_db_async_ready(SV* h);
 int mysql_socket_ready(my_socket fd);
+
+SV* my_ulonglong2sv(pTHX_ my_ulonglong val);
diff --git a/mysql.xs b/mysql.xs
@@ -40,6 +40,12 @@ constant(name, arg)
   OUTPUT:
     RETVAL
 
+SV*
+client_version(pkg)
+  CODE:
+    RETVAL = my_ulonglong2sv(aTHX_ mysql_get_client_version());
+  OUTPUT:
+    RETVAL
 
 MODULE = DBD::mysql	PACKAGE = DBD::mysql::dr
 

diff --git a/t/version.t b/t/version.t
@@ -13,4 +13,7 @@ is(
   'VERSION strings should be the same in all .pm files in dist'
 );
 
+diag("mysql_get_client_version: ", DBD::mysql->client_version);
+cmp_ok(DBD::mysql->client_version, ">", 0, "mysql_get_client_version is available as a standalone function");
+
 done_testing;
-Original file line number
+Diff line change
@@ Expand Up @@
     }
     #endif
-    static SV*
+    SV*
     my_ulonglong2sv(pTHX_ my_ulonglong val)
     {
     #if IVSIZE >= 8
@@ Expand Down @@