From 08eabd2b9688d8394f07af118beabb3980b0b1d0 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 22 Mar 2016 11:04:41 +0000 Subject: [PATCH] Bug 15585: Remove "shift on reference is experimental" warning Signed-off-by: Jonathan Druart Signed-off-by: Brendan Gallagher brendan@bywatersolutions.com --- t/db_dependent/Passwordrecovery.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/t/db_dependent/Passwordrecovery.t b/t/db_dependent/Passwordrecovery.t index 9a3b8b24b8..92cdf4b268 100755 --- a/t/db_dependent/Passwordrecovery.t +++ b/t/db_dependent/Passwordrecovery.t @@ -134,7 +134,7 @@ ok( Koha::Patron::Password::Recovery::CompletePasswordRecovery($uuid2) == 0, "[C # Koha::Patron::Password::Recovery::SendPasswordRecoveryEmail # ############################################################### -my $borrower = shift [ Koha::Patrons->search( { userid => $userid1 } ) ]; +my $borrower = Koha::Patrons->search( { userid => $userid1 } )->next; ok( Koha::Patron::Password::Recovery::SendPasswordRecoveryEmail($borrower, $email1, 0) == 1, "[SendPasswordRecoveryEmail] Returns 1 on success" ); my $letters = C4::Letters::GetQueuedMessages( { borrowernumber => $borrowernumber1, limit => 99 } ); ok( scalar @$letters == 1, "[SendPasswordRecoveryEmail] There is a letter in the queue for our borrower"); -- 2.39.5