From c9b4ae23278f1b63422ce3243d47749e628ceec7 Mon Sep 17 00:00:00 2001
From: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Date: Wed, 8 Jun 2022 14:47:05 +0000
Subject: [PATCH] Bug 11889: (QA follow-up) Changes for wantarray move in
 ->search
Content-Type: text/plain; charset=utf-8

See bug 29844.

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
---
 Koha/Patron.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Koha/Patron.pm b/Koha/Patron.pm
index f88ce98dc3..36e0a2cedc 100644
--- a/Koha/Patron.pm
+++ b/Koha/Patron.pm
@@ -394,8 +394,8 @@ sub delete {
             if ( C4::Context->preference('ListOwnershipUponPatronDeletion') eq 'transfer' ) {
                 my $userenv = C4::Context->userenv();
                 my $usernumber = (ref($userenv) eq 'HASH') ? $userenv->{'number'} : 0;
-                my @publiclists = Koha::Virtualshelves->get_public_shelves;
-                my @sharedlists = Koha::Virtualshelves->get_shared_shelves({ borrowernumber => $self->borrowernumber });
+                my @publiclists = Koha::Virtualshelves->get_public_shelves->as_list;
+                my @sharedlists = Koha::Virtualshelves->get_shared_shelves({ borrowernumber => $self->borrowernumber })->as_list;
                 foreach my $plist ( @publiclists ) {
                     if ( $plist->owner == $self->borrowernumber ) {
                         my $unique_name = $plist->shelfname . '_' . $self->borrowernumber;
@@ -412,7 +412,7 @@ sub delete {
 
             # Delete any remaining lists that this user is an owner of (always private lists,
             # only public and shared lists if ListOwnershipUponPatronDeletion = delete)
-            $_->delete for Koha::Virtualshelves->search({ owner => $self->borrowernumber });
+            $_->delete for Koha::Virtualshelves->search({ owner => $self->borrowernumber })->as_list;
 
             # We cannot have a FK on borrower_modifications.borrowernumber, the table is also used
             # for patron selfreg
-- 
2.20.1