update to p5-DBD-mysql-4.055, ok giovanni@

This commit is contained in:
sthen
2026-05-26 08:54:14 +00:00
parent 3164de1eda
commit 20e6c51c3d
5 changed files with 5 additions and 38 deletions
+1 -2
View File
@@ -1,6 +1,5 @@
COMMENT= MySQL drivers for the Perl DBI
DISTNAME= DBD-mysql-4.050
REVISION= 1
DISTNAME= DBD-mysql-4.055
CATEGORIES= databases
+2 -2
View File
@@ -1,2 +1,2 @@
SHA256 (DBD-mysql-4.050.tar.gz) = T0hUH/FaCnQF92rcEPgWJ8M5lvv1bJXCbAlERMCSjXg=
SIZE (DBD-mysql-4.050.tar.gz) = 161579
SHA256 (DBD-mysql-4.055.tar.gz) = +tokxNNrwon2I48ndGf6A398r+mhe0yQ/cWiSjbbXLw=
SIZE (DBD-mysql-4.055.tar.gz) = 163339
@@ -1,32 +0,0 @@
backport fix for issue
https://github.com/perl5-dbi/DBD-mysql/issues/78
Index: dbdimp.c
--- dbdimp.c.orig
+++ dbdimp.c
@@ -4447,8 +4447,7 @@ process:
if (!(fields[i].flags & ZEROFILL_FLAG))
{
/* Coerce to double and set scalar as NV */
- (void) SvNV(sv);
- SvNOK_only(sv);
+ sv_setnv(sv, SvNV(sv));
}
break;
@@ -4459,13 +4458,11 @@ process:
/* Coerce to integer and set scalar as UV resp. IV */
if (fields[i].flags & UNSIGNED_FLAG)
{
- (void) SvUV(sv);
- SvIOK_only_UV(sv);
+ sv_setuv(sv, SvUV(sv));
}
else
{
- (void) SvIV(sv);
- SvIOK_only(sv);
+ sv_setiv(sv, SvIV(sv));
}
}
break;
@@ -1,7 +1,7 @@
Index: t/10connect.t
--- t/10connect.t.orig
+++ t/10connect.t
@@ -71,7 +70,9 @@ ok($dbh->disconnect(), 'Disconnected');
@@ -73,7 +73,9 @@ ok( ! $dbh->ping(), 'dbh is disconnected and did not s
eval {$dbh= DBI->connect($test_dsn, $test_user, $test_password,
{ RaiseError => 1, PrintError => 1, AutoCommit => 0,
Username => '4yZ73s9qeECdWi', Password => '64heUGwAsVoNqo' });};
+1 -1
View File
@@ -6,7 +6,7 @@ ${P5ARCH}/DBD/mysql/GetInfo.pm
@comment ${P5ARCH}/DBD/mysql/INSTALL.pod
${P5ARCH}/auto/DBD/
${P5ARCH}/auto/DBD/mysql/
${P5ARCH}/auto/DBD/mysql/mysql.so
@so ${P5ARCH}/auto/DBD/mysql/mysql.so
@man man/man3p/Bundle::DBD::mysql.3p
@man man/man3p/DBD::mysql.3p
@man man/man3p/DBD::mysql::INSTALL.3p