glob2re: return a precompiled, anchored case-insensitive regex

In practice every use of glob2re uses it like that.

diff --git a/IkiWiki.pm b/IkiWiki.pm
index 57e23fda8c8727d4f5d6d0a9f3022e4e88a77e06..bb7d46ccfb63f8de96a4246b49de1dea67d9b8ea 100644 (file)
--- a/IkiWiki.pm
+++ b/IkiWiki.pm
@@ -2388,7 +2388,7 @@ sub glob2re ($) {
        my $re=quotemeta(shift);
        $re=~s/\\\*/.*/g;
        $re=~s/\\\?/./g;
        my $re=quotemeta(shift);
        $re=~s/\\\*/.*/g;
        $re=~s/\\\?/./g;

-       return $re;
+       return qr/^$re$/i;

 }
 
 package IkiWiki::FailReason;
 }
 
 package IkiWiki::FailReason;