CVS commit: pkgsrc/databases/p5-DBI

["Thomas Klausner" <wiz%netbsd.org@localhost>]

Module Name:    pkgsrc
Committed By:   wiz
Date:           Mon Sep 28 07:20:14 UTC 2026

Modified Files:
        pkgsrc/databases/p5-DBI: distinfo
        pkgsrc/databases/p5-DBI/patches: patch-DBI.xs

Log Message:
p5-DBI: use more complete upstream bugfix.


To generate a diff of this commit:
cvs rdiff -u -r1.67 -r1.68 pkgsrc/databases/p5-DBI/distinfo
cvs rdiff -u -r1.1 -r1.2 pkgsrc/databases/p5-DBI/patches/patch-DBI.xs

Please note that diffs are not public domain; they are subject to the
copyright notices on the relevant files.

Modified files:

Index: pkgsrc/databases/p5-DBI/distinfo
diff -u pkgsrc/databases/p5-DBI/distinfo:1.67 pkgsrc/databases/p5-DBI/distinfo:1.68
--- pkgsrc/databases/p5-DBI/distinfo:1.67       Mon Sep 28 07:18:10 2026
+++ pkgsrc/databases/p5-DBI/distinfo    Mon Sep 28 07:20:14 2026
@@ -1,6 +1,6 @@
-$NetBSD: distinfo,v 1.67 2026/09/28 07:18:10 wiz Exp $
+$NetBSD: distinfo,v 1.68 2026/09/28 07:20:14 wiz Exp $
 
 BLAKE2s (DBI-1.654.tgz) = 2658263201f753006a4f11d56f47d5c9064e50be473b692cc3ac0540f5a75c97
 SHA512 (DBI-1.654.tgz) = bfacc66e4aa41702161ecdf8e171af6807abcce29d6fe5ce7ac82b5d25b8642393d1f735613f48ff32a095a5b9354a4aa0e30d0fcfac086e3a79ff27c56470c2
 Size (DBI-1.654.tgz) = 742647 bytes
-SHA1 (patch-DBI.xs) = 3adf6014f1c0c30210019be1a1f270fc71f55507
+SHA1 (patch-DBI.xs) = 977240d02cbfe02ac905f894bc9d1c457e5e8fa5

Index: pkgsrc/databases/p5-DBI/patches/patch-DBI.xs
diff -u pkgsrc/databases/p5-DBI/patches/patch-DBI.xs:1.1 pkgsrc/databases/p5-DBI/patches/patch-DBI.xs:1.2
--- pkgsrc/databases/p5-DBI/patches/patch-DBI.xs:1.1    Mon Sep 28 07:18:10 2026
+++ pkgsrc/databases/p5-DBI/patches/patch-DBI.xs        Mon Sep 28 07:20:14 2026
@@ -1,22 +1,25 @@
-$NetBSD: patch-DBI.xs,v 1.1 2026/09/28 07:18:10 wiz Exp $
+$NetBSD: patch-DBI.xs,v 1.2 2026/09/28 07:20:14 wiz Exp $
 
-Variable definition only at block start.
+https://github.com/perl5-dbi/dbi/commit/ff4f1baf0389dfa5e7282e1d8d7423c1b5e06b76
 
---- DBI.xs.orig        2026-09-28 07:16:56.764598578 +0000
+--- DBI.xs.orig        2026-09-10 08:59:53.000000000 +0000
 +++ DBI.xs
-@@ -1925,6 +1925,7 @@ sql_type_cast_svpv(pTHX_ SV *sv, int sql_type, U32 fla
+@@ -1925,6 +1925,8 @@ sql_type_cast_svpv(pTHX_ SV *sv, int sql_type, U32 fla
      int cast_ok = 0;
      int grok_flags;
      UV uv;
 +    STRLEN len;
++    char *p;
  
      /* do nothing for undef (NULL) or non-string values */
      if (!sv || !SvOK(sv))
-@@ -1957,7 +1958,6 @@ sql_type_cast_svpv(pTHX_ SV *sv, int sql_type, U32 fla
+@@ -1957,8 +1959,7 @@ sql_type_cast_svpv(pTHX_ SV *sv, int sql_type, U32 fla
      /* else no error and sv is untouched */
      case SQL_NUMERIC:
          /* based on the code in perl's toke.c */
 -        STRLEN len;
-         char *p = SvPV(sv, len); /* force stringify, handle magic */
+-        char *p = SvPV(sv, len); /* force stringify, handle magic */
++        p = SvPV(sv, len); /* force stringify, handle magic */
          uv = 0;
          grok_flags = grok_number(p, len, &uv);
+         cast_ok = 1;