* Patch from Recai to use utf8 when reading the setup file, so that
[ikiwiki.git] / IkiWiki / Setup.pm
1 #!/usr/bin/perl
2
3 use warnings;
4 use strict;
5 use IkiWiki;
6 use open qw{:utf8 :std};
7
8 package IkiWiki;
9
10 sub setup () { # {{{
11         my $setup=possibly_foolish_untaint($config{setup});
12         delete $config{setup};
13         open (IN, $setup) || error("read $setup: $!\n");
14         my $code;
15         {
16                 local $/=undef;
17                 $code=<IN>;
18         }
19         ($code)=$code=~/(.*)/s;
20         close IN;
21
22         eval $code;
23         error($@) if $@;
24
25         exit;
26 } #}}}
27
28 1