From bb635a4d8356e02df81d922f7e3d3b49a73c9ec5 Mon Sep 17 00:00:00 2001
From: Andrew Branson <andrew@andrewbranson.net>
Date: Mon, 21 Apr 2014 08:53:28 +0200
Subject: Compatibility with Perl 5

---
 cgi-bin/Search.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)
 mode change 100644 => 100755 cgi-bin/Search.pm

diff --git a/cgi-bin/Search.pm b/cgi-bin/Search.pm
old mode 100644
new mode 100755
index af6b3fd..a9c1120
--- a/cgi-bin/Search.pm
+++ b/cgi-bin/Search.pm
@@ -93,7 +93,7 @@ sub go {
     my $pureArtistSearch = ($searchFor eq 'artist' && !$title && !$album && !$dateFrom && !$dateTo && $scope eq 'all');
 
     # loop through each platter
-    @inv = keys %PLATTERS if (!defined @inv);
+    @inv = keys %PLATTERS if (!@inv);
 
     foreach (@inv) {
         my $platter = $_;
-- 
cgit v1.2.3