SecBSD's official ports repository

databases/p5-DBD-mysql/Makefile

@@ -0,0 +1,26 @@
+COMMENT=		MySQL drivers for the Perl DBI
+DISTNAME=		DBD-mysql-4.050
+REVISION=		1
+
+CATEGORIES=		databases
+
+MAINTAINER=		Giovanni Bechis <giovanni@openbsd.org>
+
+MODULES=		cpan databases/mariadb
+CPAN_AUTHOR=		DVEEDEN
+
+# Perl
+PERMIT_PACKAGE=	Yes
+
+WANTLIB=		c crypto m mariadb perl pthread ssl z
+
+BUILD_DEPENDS=		databases/p5-DBI>=1.08 \
+			devel/p5-Devel-CheckLib
+RUN_DEPENDS=		databases/p5-DBI>=1.08
+LIB_DEPENDS=		databases/mariadb
+TEST_DEPENDS=		databases/mariadb,-server \
+			devel/p5-Test-Deep \
+			sysutils/p5-Proc-ProcessTable
+TEST_ENV=		EXTENDED_TESTING=1
+
+.include <bsd.port.mk>

databases/p5-DBD-mysql/distinfo

@@ -0,0 +1,2 @@
+SHA256 (DBD-mysql-4.050.tar.gz) = T0hUH/FaCnQF92rcEPgWJ8M5lvv1bJXCbAlERMCSjXg=
+SIZE (DBD-mysql-4.050.tar.gz) = 161579

databases/p5-DBD-mysql/patches/patch-dbdimp_c

@@ -0,0 +1,32 @@
+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;

databases/p5-DBD-mysql/patches/patch-t_10connect_t

@@ -0,0 +1,13 @@
+Index: t/10connect.t
+--- t/10connect.t.orig
++++ t/10connect.t
+@@ -71,7 +70,9 @@ ok($dbh->disconnect(), 'Disconnected');
+ eval {$dbh= DBI->connect($test_dsn, $test_user, $test_password,
+    { RaiseError => 1, PrintError => 1, AutoCommit => 0,
+      Username => '4yZ73s9qeECdWi', Password => '64heUGwAsVoNqo' });};
++SKIP: { skip "Our mariadb test runs with --skip-grant-tables", 1;
+ ok($@, 'Username and Password attributes override');
++}
+ 
+ eval {$dbh= DBI->connect($test_dsn, '4yZ73s9qeECdWi', '64heUGwAsVoNqo',
+    { RaiseError => 1, PrintError => 1, AutoCommit => 0,

databases/p5-DBD-mysql/pkg/DESCR

@@ -0,0 +1,7 @@
+DBD::mysql are the Perl5 Database Interface drivers for the mysql
+database.
+
+In other words: DBD::mysql are an interface between the Perl
+programming language and the mysql programming API that come with
+the mysql relational database management systems.  Most functions
+provided by the respective programming API's are supported.

databases/p5-DBD-mysql/pkg/PLIST

@@ -0,0 +1,12 @@
+@comment ${P5ARCH}/Bundle/DBD/
+@comment ${P5ARCH}/Bundle/DBD/mysql.pm
+${P5ARCH}/DBD/mysql/
+${P5ARCH}/DBD/mysql.pm
+${P5ARCH}/DBD/mysql/GetInfo.pm
+@comment ${P5ARCH}/DBD/mysql/INSTALL.pod
+${P5ARCH}/auto/DBD/
+${P5ARCH}/auto/DBD/mysql/
+${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