Add DBIXS_VERSION & DBIXS_RELEASE to dbixs_rev.h

Author: Tux

ChangeLog

@@ -1,5 +1,6 @@
-1.648 - 2025-02-14, H.Merijn Brand
+1.648 - 2025-03-11, H.Merijn Brand
     * Correct sprintf usage for trace_msg (issue#132)
+    * Add DBIXS_VERSION & DBIXS_RELEASE to dbixs_rev.h
 
 1.647 - 2025-01-20, H.Merijn Brand
     * Spellcheck

dbixs_rev.h

@@ -1,2 +1,6 @@
-/* Fri Jan 17 15:09:59 2025 */
-#define DBIXS_REVISION 1698
+/* Tue Mar 11 10:51:15 2025 */
+/*  M dbixs_rev.pl */
+/*  M lib/DBI/Changes.pm */
+#define DBIXS_VERSION  1
+#define DBIXS_RELEASE  648
+#define DBIXS_REVISION 1703

dbixs_rev.pl

@@ -14,17 +14,29 @@ sub skip_update {
 
 -d ".git" or skip_update ("No git env");
 
+my ($dbiv, $dbir);
+open my $fh, "<", "DBI.pm" or die "DBI.pm: $!\n";
+while (<$fh>) {
+    m/\b VERSION \s*=\s* (["']) ([0-9]+) \. ([0-9]+) \1/x or next;
+    ($dbiv, $dbir) = ($2, $3);
+    close $fh;
+    last;
+    }
+$dbiv or die "Cannot fetch DBI version from DBI.pm\n";
+
 my @n = eval { qx{git log --pretty=oneline} };
 @n or skip_update ("Git log was empty");
 
-open my $fh, ">$dbixs_rev_file" or die "Can't open $dbixs_rev_file: $!\n";
+open $fh, ">$dbixs_rev_file" or die "Can't open $dbixs_rev_file: $!\n";
 print $fh "/* ", scalar localtime, " */\n";
 
 chomp (my @st = qx{git status -s --show-stash});
 print $fh "/* $_ */\n" for grep { !m/\b$dbixs_rev_file\b/ } @st;
 
 my $def = "DBIXS_REVISION";
 my $rev = scalar @n;
+print $fh "#define DBIXS_VERSION  $dbiv\n";
+print $fh "#define DBIXS_RELEASE  $dbir\n";
 print $fh "#define $def $rev\n";
 close $fh or die "Error closing $dbixs_rev_file: $!\n";
-print "Wrote $def $rev to $dbixs_rev_file\n";
+print "Wrote $def $rev to $dbixs_rev_file for DBI-$dbiv.$dbir\n";

lib/DBI/Changes.pm

@@ -12,6 +12,20 @@ DBI::Changes - List of significant changes to the DBI
 
 =encoding UTF-8
 
+=head2 Changes in DBI 1.648 - 11 Mar 2025
+
+=over 2
+
+=item *
+
+Correct sprintf usage for trace_msg (issue#132)
+
+=item *
+
+Add DBIXS_VERSION & DBIXS_RELEASE to dbixs_rev.h
+
+=back
+
 =head2 Changes in DBI 1.647 - 20 Jan 2025
 
 =over 2