archive/oddmuse
2
0
Fork 0
forked from github/kensanata.oddmuse
Code Pull Requests Activity

mac.pl uses strict

Browse Source 
Also get rid of $IndexInit from UseMod days.
This commit is contained in:
Alex Schroeder
2015-03-29 15:06:57 +02:00
parent 74123ad906
commit fa99ee5ec4
1 changed files with 11 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
modules/mac.pl
View File

@@ -1,20 +1,16 @@
# Copyright (C) 2005 Alex Schroeder <alex@emacswiki.org>
# Copyright (C) 2005–2015 Alex Schroeder <alex@gnu.org>
#
# 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 <http://www.gnu.org/licenses/>.
# 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 = ();