Fix fetchall_arrayref for undefined NAME (issue#156)

perl5-dbi · Jan 17, 2025 · 552fbf2 · 552fbf2
1 parent 8104df9
commit 552fbf2
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 1 deletion.
diff --git a/ChangeLog b/ChangeLog
@@ -2,6 +2,7 @@
     * Spellcheck
     * Fix Makefile rules for Changes (Windows case issue)
     * Another example to bind columns (issue#159)
+    * Fix fetchall_arrayref for undefined NAME (issue#156)
 
 1.646 - 2025-01-11, H.Merijn Brand
     * Remove "experimental" tag from statistics_info () (issue#134)

diff --git a/DBI.pm b/DBI.pm
@@ -2078,7 +2078,7 @@ sub _new_sth {	# called by DBD::<drivername>::db::prepare)
                 }
 	    }
 	    else {
-		my @column_names = @{ $sth->FETCH($sth->FETCH('FetchHashKeyName')) };
+		my @column_names = @{ $sth->FETCH($sth->FETCH('FetchHashKeyName')) || [] };
 		return [] if !@column_names;
 
 		$sth->bind_columns( \( @row{@column_names} ) );

diff --git a/lib/DBI/Changes.pm b/lib/DBI/Changes.pm
@@ -28,6 +28,10 @@ Fix Makefile rules for Changes (Windows case issue)
 
 Another example to bind columns (issue#159)
 
+=item *
+
+Fix fetchall_arrayref for undefined NAME (issue#156)
+
 =back
 
 =head2 Changes in DBI 1.646 - 11 Jan 2025
-Original file line number
+Diff line change
@@ Expand Up / @@ -28,6 +28,10 @@ Fix Makefile rules for Changes (Windows case issue) @@
     Another example to bind columns (issue#159)
+    =item *
+    Fix fetchall_arrayref for undefined NAME (issue#156)
     =back
     =head2 Changes in DBI 1.646 - 11 Jan 2025
@@ Expand Down @@