From fa99ee5ec4e16390358fc89f24b7d25dec136887 Mon Sep 17 00:00:00 2001 From: Alex Schroeder Date: Sun, 29 Mar 2015 15:06:57 +0200 Subject: [PATCH] mac.pl uses strict Also get rid of $IndexInit from UseMod days. --- modules/mac.pl | 29 +++++++++++------------------ 1 file changed, 11 insertions(+), 18 deletions(-) diff --git a/modules/mac.pl b/modules/mac.pl index 6dd57e84..86fccee1 100644 --- a/modules/mac.pl +++ b/modules/mac.pl @@ -1,20 +1,16 @@ -# Copyright (C) 2005 Alex Schroeder +# Copyright (C) 2005–2015 Alex Schroeder # -# This program is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 2 of the License, or -# (at your option) any later version. +# This program is free software: you can redistribute it and/or modify it under +# the terms of the GNU General Public License as published by the Free Software +# Foundation, either version 3 of the License, or (at your option) any later +# version. # -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. +# This program is distributed in the hope that it will be useful, but WITHOUT +# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS +# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. # -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the -# Free Software Foundation, Inc. -# 59 Temple Place, Suite 330 -# Boston, MA 02111-1307 USA +# You should have received a copy of the GNU General Public License along with +# this program. If not, see . # use strict; # TODO $IndexInit @@ -28,10 +24,7 @@ use Unicode::Normalize; *AllPagesList = *NewMacAllPagesList; sub NewMacAllPagesList { - my $refresh = GetParam('refresh', 0); - if ($IndexInit && !$refresh) { - return @IndexList; - } + return @IndexList if @IndexList and not GetParam('refresh', 0); OldMacAllPagesList(@_); my @new = (); %IndexHash = ();