Fix fetchall_arrayref for undefined NAME (issue#156)

Tux · Tux · commit 552fbf29f858 · 2025-01-17T14:26:31.000+01:00
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 number	Diff line change
`@@ -2078,7 +2078,7 @@ sub _new_sth { # called by DBD::<drivername>::db::prepare)`
`2078`	`2078`	`}`
`2079`	`2079`	`}`
`2080`	`2080`	`else {`
`2081`		`- my @column_names = @{ $sth->FETCH($sth->FETCH('FetchHashKeyName')) };`
	`2081`	`+ my @column_names = @{ $sth->FETCH($sth->FETCH('FetchHashKeyName')) \|\| [] };`
`2082`	`2082`	`return [] if !@column_names;`
`2083`	`2083`
`2084`	`2084`	`$sth->bind_columns( \( @row{@column_names} ) );`