]> git.vanrenterghem.biz Git - git.ikiwiki.info.git/blob - 1.33.2/IkiWiki/Setup.pm
tagging version 1.33.2
[git.ikiwiki.info.git] / 1.33.2 / IkiWiki / Setup.pm
1 #!/usr/bin/perl
3 use warnings;
4 use strict;
5 use IkiWiki;
6 use open qw{:utf8 :std};
8 package IkiWiki;
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;
22         eval $code;
23         error($@) if $@;
25         exit;
26 } #}}}
28 1