diff options
| author | Andrew Branson <andrew@andrewbranson.net> | 2014-04-21 08:53:28 +0200 |
|---|---|---|
| committer | Andrew Branson <andrew@andrewbranson.net> | 2014-04-21 08:58:46 +0200 |
| commit | bb635a4d8356e02df81d922f7e3d3b49a73c9ec5 (patch) | |
| tree | a0648f72b4d7569d9d7b23ad83bd3afea9f5f3e2 | |
| parent | 39e40013d191d7c24d5ce0202c0c1cee8ea97e40 (diff) | |
Compatibility with Perl 5
| -rwxr-xr-x[-rw-r--r--] | cgi-bin/Search.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cgi-bin/Search.pm b/cgi-bin/Search.pm index af6b3fd..a9c1120 100644..100755 --- 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 = $_; |