fix config restoration after wrapper gen

[ikiwiki.git] / IkiWiki / Setup / Standard.pm

diff --git a/IkiWiki/Setup/Standard.pm b/IkiWiki/Setup/Standard.pm
index 76213b11aa2636987f3c669ae21379d984e767ff..4d1118f304b871024b93157a4c5fea941ed96cd9 100644 (file)
--- a/IkiWiki/Setup/Standard.pm
+++ b/IkiWiki/Setup/Standard.pm
@@ -13,12 +13,14 @@ sub import {
        my %setup=%{$_[1]};
 
        ::debug("generating wrappers..");
+       my %startconfig=(%::config);
        foreach my $wrapper (@{$setup{wrappers}}) {
-               %::config=(%::config, verbose => 0, %setup, %{$wrapper});
+               %::config=(%startconfig, verbose => 0, %setup, %{$wrapper});
                ::checkoptions();
                ::gen_wrapper();
        }
-
+       %::config=(%startconfig);
+       
        ::debug("rebuilding wiki..");
        foreach my $c (keys %setup) {
                $::config{$c}=::possibly_foolish_untaint($setup{$c})