[rpms/perl-DBI] rawhide: Fix test for 32bit-perl

[rpms/perl-DBI] rawhide: Fix test for 32bit-perl

[Jitka Plesnikova]

A new commit has been pushed.

Repo   : rpms/perl-DBI
Branch : rawhide
Commit : 600ba00d34804238106e67cc229c0a90b2e4ee38
Author : Jitka Plesnikova <jplesnik@redhat.com>
Date   : 2026-08-18T00:03:02+02:00
Stats  : +27/-0 in 2 file(s)
URL    : https://src.fedoraproject.org/rpms/perl-DBI/c/600ba00d34804238106e67cc229c0a90b2e4ee38?branch=rawhide

Log:
Fix test for 32bit-perl

---
diff --git a/DBI-1.652-Fix-test-for-32bit-perl-report-in-PR-189.patch b/DBI-1.652-Fix-test-for-32bit-perl-report-in-PR-189.patch
new file mode 100644
index 0000000..74fcd74
--- /dev/null
+++ b/DBI-1.652-Fix-test-for-32bit-perl-report-in-PR-189.patch
@@ -0,0 +1,25 @@
+From acc903db3086a737936643a5dbbc0e22f9d5c421 Mon Sep 17 00:00:00 2001
+From: "H.Merijn Brand - Tux" <linux@tux.freedom.nl>
+Date: Mon, 17 Aug 2026 09:49:56 +0200
+Subject: [PATCH] Fix test for 32bit-perl (report in PR#189)
+
+---
+ t/60preparse.t | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+
+diff --git a/t/60preparse.t b/t/60preparse.t
+index 92bdc89..eff39be 100755
+--- a/t/60preparse.t
++++ b/t/60preparse.t
+@@ -148,7 +148,7 @@ ok( $DBI::err );
+ is( $DBI::errstr, "preparse found :p100000 which is outside the allowed range.");
+ is( pp($dbh, 'a = :2147483648', DBIpp_ph_qm, DBIpp_ph_cs|DBIpp_ph_cn), undef, 'exceeds limit');
+ ok( $DBI::err );
+-is( $DBI::errstr, "preparse found :p-2147483648 which is outside the allowed range.");
++like( $DBI::errstr, qr{^preparse found :p(?:-2147483648|2147483647) which is outside the allowed range.$});
+ is( pp($dbh, 'a = :12345678987654321', DBIpp_ph_qm, DBIpp_ph_cs|DBIpp_ph_cn), undef, 'exceeds limit');
+ ok( $DBI::err );
+ like( $DBI::errstr, qr{^preparse found :p\d+ which is outside the allowed range.$});
+-- 
+2.55.0
+

diff --git a/perl-DBI.spec b/perl-DBI.spec
index 0d9bdb7..0f4f429 100644
--- a/perl-DBI.spec
+++ b/perl-DBI.spec
@@ -36,6 +36,8 @@ Summary:        A database access API for perl
 License:        GPL-1.0-or-later OR Artistic-1.0-Perl
 URL:            http://dbi.perl.org/
 Source0:        https://cpan.metacpan.org/authors/id/H/HM/HMBRAND/DBI-%{version}.tgz
+Patch0:         DBI-1.652-Fix-test-for-32bit-perl-report-in-PR-189.patch
+
 BuildRequires:  coreutils
 BuildRequires:  findutils
 BuildRequires:  gcc