[Koha-patches] [PATCH 1/2] fix typo/thinko in list test

[Galen Charlton]

Signed-off-by: Galen Charlton <gmcharlt at gmail.com>
---
 t/db_dependent/VirtualShelves.t |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/t/db_dependent/VirtualShelves.t b/t/db_dependent/VirtualShelves.t
index 041c3fc..a50f81e 100755
--- a/t/db_dependent/VirtualShelves.t
+++ b/t/db_dependent/VirtualShelves.t
@@ -91,7 +91,7 @@ for(my $i=0; $i<10;$i++){
     my $shelfnumber = $shelves[int(rand(9))];
   
     my $key = "$bib\t$shelfnumber";
-    my $should_fail if exists $used{$key};
+    my $should_fail = exists($used{$key}) ? 1 : 0;
  
     my ($biblistBefore,$countbefore) = GetShelfContents($shelfnumber);
     my $status = AddToShelf($bib,$shelfnumber);
-- 
1.7.0