stupid perl..

[ikiwiki.git] / IkiWiki.pm

diff --git a/IkiWiki.pm b/IkiWiki.pm
index 7ef9007ff1636a26d439428baa60eeea58258099..57c7d8f58d7c24a0f08f1f4c6d7c741b1afd2940 100644 (file)
--- a/IkiWiki.pm
+++ b/IkiWiki.pm
@@ -586,14 +586,7 @@ sub match_link ($$) { #{{{
 } #}}}
 
 sub match_backlink ($$) { #{{{
-       my $page=shift;
-       my $linkto=shift;
-
-       my $links = $links{$linkto} or return undef;
-       foreach my $p (@$links) {
-               return 1 if lc $p eq $page;
-       }
-       return 0;
+       match_link(pop, pop);
 } #}}}
 
 sub match_creation_day ($$) { #{{{