From a8df45923e0df9e5de8ed36725a00ef327e47448 Mon Sep 17 00:00:00 2001
From: Nahuel Angelinetti <nahuel.angelinetti@biblibre.com>
Date: Wed, 10 Dec 2008 10:24:36 +0100
Subject: [PATCH] Fix something that doesn't work in some perl versions.

---
 virtualshelves/addbybiblionumber.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/virtualshelves/addbybiblionumber.pl b/virtualshelves/addbybiblionumber.pl
index 2c7600b22f..b19e7da4f8 100755
--- a/virtualshelves/addbybiblionumber.pl
+++ b/virtualshelves/addbybiblionumber.pl
@@ -98,13 +98,13 @@ else {    # this shelf doesn't already exist.
 	my ($shelflist) = GetRecentShelves(1, $limit, $loggedinuser);
     my @shelvesloop;
     my %shelvesloop;
-    for my $shelf ( @{${@$shelflist}[0]} ) {
+    for my $shelf ( @{ $shelflist->[0] } ) {
         push( @shelvesloop, $shelf->{shelfnumber} );
 		$shelvesloop{$shelf->{shelfnumber}} = $shelf->{shelfname};
 	}
 	# then open shelves...
 	my ($shelflist) = GetRecentShelves(3, $limit, undef);
-    for my $shelf ( @{${@$shelflist}[0]} ) {
+    for my $shelf ( @{ $shelflist->[0] } ) {
         push( @shelvesloop, $shelf->{shelfnumber} );
 		$shelvesloop{$shelf->{shelfnumber}} = $shelf->{shelfname};
 	}
-- 
2.39.5