# Optimisation.
use Memoize;
memoize("abs2rel");
+memoize("pagespec_translate");
use vars qw{%config %links %oldlinks %oldpagemtime %pagectime
%renderedfiles %pagesources %depends %hooks %forcerebuild};
return "($a) or ($b)";
} #}}}
-sub pagespec_match ($$) { #{{{
- my $page=shift;
+sub pagespec_translate ($) { #{{{
+ # This assumes that $page is in scope in the function
+ # that evalulates the translated pagespec code.
my $spec=shift;
# Support for old-style GlobLists.
}
}
- return eval $code;
+ return $code;
+} #}}}
+
+sub pagespec_match ($$) { #{{{
+ my $page=shift;
+ my $spec=shift;
+
+ return eval pagespec_translate($spec);
} #}}}
sub match_glob ($$) { #{{{
} #}}}
sub match_backlink ($$) { #{{{
- match_link(reverse @_);
+ match_link(pop, pop);
} #}}}
sub match_creation_day ($$) { #{{{
- return if (gmtime($pagectime{shift()}))[3] == shift;
+ return ((gmtime($pagectime{shift()}))[3] == shift);
} #}}}
sub match_creation_month ($$) { #{{{
- return if (gmtime($pagectime{shift()}))[4] + 1 == shift;
+ return ((gmtime($pagectime{shift()}))[4] + 1 == shift);
} #}}}
sub match_creation_year ($$) { #{{{
- return if (gmtime($pagectime{shift()}))[5] + 1900 == shift;
+ return ((gmtime($pagectime{shift()}))[5] + 1900 == shift);
} #}}}
-
1