fix param passing to match_glob

diff --git a/IkiWiki.pm b/IkiWiki.pm
index 43995fc9665a3768b88ec7919862e49972bcf1ca..11cfcdfd2d9ef31112f431963d52e8c31efe0f01 100644 (file)
--- a/IkiWiki.pm
+++ b/IkiWiki.pm
@@ -2342,12 +2342,12 @@ sub match_glob ($$;@) {
 }
 
 sub match_internal ($$;@) {
 }
 
 sub match_internal ($$;@) {

-       return match_glob($_[0], $_[1], @_, internal => 1)
+       return match_glob(shift, shift, @_, internal => 1)

 }
 
 sub match_page ($$;@) {
        my $page=shift;
 }
 
 sub match_page ($$;@) {
        my $page=shift;

-       my $match=match_glob($page, $_[1], @_);
+       my $match=match_glob($page, shift, @_);

        if ($match && ! defined IkiWiki::pagetype($IkiWiki::pagesources{$page})) {
                return IkiWiki::FailReason->new("$page is not a page");
        }
        if ($match && ! defined IkiWiki::pagetype($IkiWiki::pagesources{$page})) {
                return IkiWiki::FailReason->new("$page is not a page");
        }