Allow wrappers to be built using tcc.

[ikiwiki.git] / IkiWiki.pm

diff --git a/IkiWiki.pm b/IkiWiki.pm
index ee94ce659cbb5fdaffdf21da94fb50ae4e85c89f..a618836cf904e05aff5217b870b67b18fdd70dc8 100644 (file)
--- a/IkiWiki.pm
+++ b/IkiWiki.pm
@@ -338,7 +338,7 @@ sub getsetup () {
                type => "string",
                default => undef,
                example => '^\.htaccess$',
-               description => "regexp of normally ignored source files to include",
+               description => "regexp of normally excluded files to include",
                advanced => 1,
                safe => 0, # regexp
                rebuild => 1,
@@ -346,8 +346,8 @@ sub getsetup () {
        exclude => {
                type => "string",
                default => undef,
-               example => '\.wav$',
-               description => "regexp of source files to ignore",
+               example => '^(*\.private|Makefile)$',
+               description => "regexp of files that should be skipped",
                advanced => 1,
                safe => 0, # regexp
                rebuild => 1,
@@ -1819,6 +1819,7 @@ sub deptype (@) {
        return $deptype;
 }
 
+my $file_prune_regexp;
 sub file_pruned ($;$) {
        my $file=shift;
        if (@_) {
@@ -1833,8 +1834,11 @@ sub file_pruned ($;$) {
                return 0 if $file =~ m/$config{include}/;
        }
 
-       my $regexp='('.join('|', @{$config{wiki_file_prune_regexps}}).')';
-       return $file =~ m/$regexp/;
+       if (! defined $file_prune_regexp) {
+               $file_prune_regexp='('.join('|', @{$config{wiki_file_prune_regexps}}).')';
+               $file_prune_regexp=qr/$file_prune_regexp/;
+       }
+       return $file =~ m/$file_prune_regexp/;
 }
 
 sub define_gettext () {