diff options
| author | joey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071> | 2006-03-24 02:42:19 +0000 |
|---|---|---|
| committer | joey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071> | 2006-03-24 02:42:19 +0000 |
| commit | e910e67424aeaf56c547578af6c98914a7180811 (patch) | |
| tree | 83b3389e087c94a79cafc7f640a33eb1e3db1c46 /IkiWiki/Setup.pm | |
| parent | e1823922e6f3f177abfb599857bbaea26e867b82 (diff) | |
| download | ikiwiki-e910e67424aeaf56c547578af6c98914a7180811.tar ikiwiki-e910e67424aeaf56c547578af6c98914a7180811.tar.gz | |
fixes
Diffstat (limited to 'IkiWiki/Setup.pm')
| -rw-r--r-- | IkiWiki/Setup.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/IkiWiki/Setup.pm b/IkiWiki/Setup.pm index 63659ce2e..0c8ad9208 100644 --- a/IkiWiki/Setup.pm +++ b/IkiWiki/Setup.pm @@ -9,8 +9,11 @@ sub setup () { # {{{ 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; |