]> sipb.mit.edu Git - ikiwiki.git/blobdiff - IkiWiki/Setup.pm
testing
[ikiwiki.git] / IkiWiki / Setup.pm
index 63659ce2e03e7147be14063bf13e24278ddab94f..2b4c76bd0b228539cb94feb69fba97435fff9833 100644 (file)
@@ -2,6 +2,8 @@
 
 use warnings;
 use strict;
 
 use warnings;
 use strict;
+use IkiWiki;
+use open qw{:utf8 :std};
 
 package IkiWiki;
 
 
 package IkiWiki;
 
@@ -9,13 +11,17 @@ sub setup () { # {{{
        my $setup=possibly_foolish_untaint($config{setup});
        delete $config{setup};
        open (IN, $setup) || error("read $setup: $!\n");
        my $setup=possibly_foolish_untaint($config{setup});
        delete $config{setup};
        open (IN, $setup) || error("read $setup: $!\n");
-       local $/=undef;
-       my $code=<IN>;
+       my $code;
+       {
+               local $/=undef;
+               $code=<IN>;
+       }
        ($code)=$code=~/(.*)/s;
        close IN;
 
        eval $code;
        error($@) if $@;
        ($code)=$code=~/(.*)/s;
        close IN;
 
        eval $code;
        error($@) if $@;
+
        exit;
 } #}}}
 
        exit;
 } #}}}