#!/usr/bin/perl use warnings; use strict; use IkiWiki; use open qw{:utf8 :std}; package IkiWiki; sub setup () { # {{{ my $setup=possibly_foolish_untaint($config{setup}); delete $config{setup}; #translators: The first parameter is a filename, and the second #translators: is a (probably not translated) error message. open (IN, $setup) || error(sprintf(gettext("cannot read %s: %s"), $setup, $!)); my $code; { local $/=undef; $code=; } ($code)=$code=~/(.*)/s; close IN; eval $code; error("$setup: ".$@) if $@; exit; } #}}} 1 >
summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJonas Smedegaard <dr@jones.dk>2023-06-27 09:35:08 +0200
committerJonas Smedegaard <dr@jones.dk>2023-06-27 09:35:08 +0200
commitfd54908da2b05c526dd3bee9b6dcd093214a220d (patch)
treec69c845069c99d1d01044f6fafda7c08433329c6 /tags/02/68/20170508002117.ADDBB13D6@xayide.jones.dk/inbox
parentba46132213560cf3335d53560d519c0ec0190da2 (diff)
Diffstat (limited to 'tags/02/68/20170508002117.ADDBB13D6@xayide.jones.dk/inbox')