Swapped VERSION and RELEASE for DBIXS_VERSION was already used as such

Author: Tux

DBIXS.h

@@ -12,6 +12,9 @@
 
 #ifndef DBIXS_VERSION                           /* prevent multiple inclusion */
 
+/* define DBIXS_VERSION & DBIXS_REVISION */
+#include "dbixs_rev.h"
+
 #ifndef DBIS
 #define DBIS    dbis    /* default name for dbistate_t variable */
 #endif
@@ -32,9 +35,6 @@
 #undef std
 #endif
 
-/* define DBIXS_REVISION */
-#include "dbixs_rev.h"
-
 /* Perl backwards compatibility definitions */
 #define NEED_sv_2pv_flags
 #define NEED_croak_xs_usage
@@ -43,9 +43,6 @@
 /* DBI SQL_* type definitions */
 #include "dbi_sql.h"
 
-
-#define DBIXS_VERSION 93 /* superseded by DBIXS_REVISION */
-
 #ifdef NEED_DBIXS_VERSION
 #if NEED_DBIXS_VERSION > DBIXS_VERSION
 error You_need_to_upgrade_your_DBI_module_before_building_this_driver
@@ -54,7 +51,6 @@ error You_need_to_upgrade_your_DBI_module_before_building_this_driver
 #define NEED_DBIXS_VERSION DBIXS_VERSION
 #endif
 
-
 #define DBI_LOCK
 #define DBI_UNLOCK
 

dbixs_rev.h

@@ -1,6 +1,4 @@
-/* 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
+/* Fri Mar 14 15:13:25 2025 */
+#define DBIXS_RELEASE  1
+#define DBIXS_VERSION  648
+#define DBIXS_REVISION 1705

dbixs_rev.pl

@@ -14,15 +14,15 @@ sub skip_update {
 
 -d ".git" or skip_update ("No git env");
 
-my ($dbiv, $dbir);
+my ($dbir, $dbiv);
 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);
+    ($dbir, $dbiv) = ($2, $3);
     close $fh;
     last;
     }
-$dbiv or die "Cannot fetch DBI version from DBI.pm\n";
+$dbir 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");
@@ -35,8 +35,8 @@ sub skip_update {
 
 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 DBIXS_VERSION  $dbiv\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 for DBI-$dbiv.$dbir\n";
+print "Wrote $def $rev to $dbixs_rev_file for DBI-$dbir.$dbiv\n";

doc/Bundle-DBI.3

@@ -58,7 +58,7 @@
 .\" ========================================================================
 .\"
 .IX Title "Bundle::DBI 3"
-.TH Bundle::DBI 3 2024-08-13 "perl v5.40.0" "User Contributed Perl Documentation"
+.TH Bundle::DBI 3 2024-08-13 "perl v5.40.1" "User Contributed Perl Documentation"
 .\" For nroff, turn off justification.  Always turn off hyphenation; it makes
 .\" way too many mistakes in technical documents.
 .if n .ad l

doc/Bundle-DBI.man

@@ -35,4 +35,4 @@ DESCRIPTION
 AUTHORS
        Jonathan Leffler, Jochen Wiedmann and Tim Bunce.
 
-perl v5.40.0                      2024-08-13                    Bundle::DBI(3)
+perl v5.40.1                      2024-08-13                    Bundle::DBI(3)

doc/DBD-DBM.3

@@ -58,7 +58,7 @@
 .\" ========================================================================
 .\"
 .IX Title "DBD::DBM 3"
-.TH DBD::DBM 3 2024-08-19 "perl v5.40.0" "User Contributed Perl Documentation"
+.TH DBD::DBM 3 2024-08-19 "perl v5.40.1" "User Contributed Perl Documentation"
 .\" For nroff, turn off justification.  Always turn off hyphenation; it makes
 .\" way too many mistakes in technical documents.
 .if n .ad l

doc/DBD-DBM.man

@@ -785,4 +785,4 @@ SEE ALSO
        DBI, SQL::Statement, DBI::SQL::Nano, AnyDBM_File, DB_File, BerkeleyDB,
        MLDBM, YAML::MLDBM, MLDBM::Serializer::JSON
 
-perl v5.40.0                      2024-08-19                       DBD::DBM(3)
+perl v5.40.1                      2024-08-19                       DBD::DBM(3)

doc/DBD-File.3

@@ -58,7 +58,7 @@
 .\" ========================================================================
 .\"
 .IX Title "DBD::File 3"
-.TH DBD::File 3 2025-01-17 "perl v5.40.0" "User Contributed Perl Documentation"
+.TH DBD::File 3 2025-01-17 "perl v5.40.1" "User Contributed Perl Documentation"
 .\" For nroff, turn off justification.  Always turn off hyphenation; it makes
 .\" way too many mistakes in technical documents.
 .if n .ad l

doc/DBD-File.man

@@ -435,4 +435,4 @@ SEE ALSO
        DBI, DBD::DBM, DBD::CSV, Text::CSV, Text::CSV_XS, SQL::Statement, and
        DBI::SQL::Nano
 
-perl v5.40.0                      2025-01-17                      DBD::File(3)
+perl v5.40.1                      2025-01-17                      DBD::File(3)

doc/DBD-Gofer-Policy-Base.3

@@ -58,7 +58,7 @@
 .\" ========================================================================
 .\"
 .IX Title "DBD::Gofer::Policy::Base 3"
-.TH DBD::Gofer::Policy::Base 3 2024-08-13 "perl v5.40.0" "User Contributed Perl Documentation"
+.TH DBD::Gofer::Policy::Base 3 2024-08-13 "perl v5.40.1" "User Contributed Perl Documentation"
 .\" For nroff, turn off justification.  Always turn off hyphenation; it makes
 .\" way too many mistakes in technical documents.
 .if n .ad l