head	1.3;
access;
symbols;
locks; strict;
comment	@# @;


1.3
date	2026.10.04.05.41.13;	author wiz;	state dead;
branches;
next	1.2;
commitid	KWEqAZBfUTicy7YG;

1.2
date	2026.09.28.07.20.14;	author wiz;	state Exp;
branches;
next	1.1;
commitid	aK3i54KeJgW6imXG;

1.1
date	2026.09.28.07.18.10;	author wiz;	state Exp;
branches;
next	;
commitid	LbBEabhPvY9rhmXG;


desc
@@


1.3
log
@p5-DBI: update to 1.655.

1.655 - 2026-09-30, H.Merijn Brand & Robert Rothenberg
    * Fix for C89 (Paul Howarth, PR#197)
    * Ignore invalid handles consistently (detected by Raj)
@
text
@$NetBSD: patch-DBI.xs,v 1.2 2026/09/28 07:20:14 wiz Exp $

https://github.com/perl5-dbi/dbi/commit/ff4f1baf0389dfa5e7282e1d8d7423c1b5e06b76

--- DBI.xs.orig	2026-09-10 08:59:53.000000000 +0000
+++ DBI.xs
@@@@ -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,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 */
+        p = SvPV(sv, len); /* force stringify, handle magic */
         uv = 0;
         grok_flags = grok_number(p, len, &uv);
         cast_ok = 1;
@


1.2
log
@p5-DBI: use more complete upstream bugfix.
@
text
@d1 1
a1 1
$NetBSD$
@


1.1
log
@p5-DBI: try fixing Darwin build
@
text
@d3 1
a3 1
Variable definition only at block start.
d5 1
a5 1
--- DBI.xs.orig	2026-09-28 07:16:56.764598578 +0000
d7 1
a7 1
@@@@ -1925,6 +1925,7 @@@@ sql_type_cast_svpv(pTHX_ SV *sv, int sql_type, U32 fla
d12 1
d16 1
a16 1
@@@@ -1957,7 +1958,6 @@@@ sql_type_cast_svpv(pTHX_ SV *sv, int sql_type, U32 fla
d21 2
a22 1
         char *p = SvPV(sv, len); /* force stringify, handle magic */
d25 1
@