diff options
| author | Joey Hess <joey@gnu.kitenet.net> | 2010-03-24 16:12:35 -0400 |
|---|---|---|
| committer | Joey Hess <joey@gnu.kitenet.net> | 2010-03-24 16:12:35 -0400 |
| commit | eb06a0135511fc5b5422f07ca5344ce114402a61 (patch) | |
| tree | 65edf3e91440adbde5a2a63b6379961e2fd65753 /IkiWiki | |
| parent | a76206d4809364eaab288df45b126893887e46f4 (diff) | |
use perl YAML for dumping
Only it understands $YAML::UseHeader
Diffstat (limited to 'IkiWiki')
| -rw-r--r-- | IkiWiki/Setup/Yaml.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/IkiWiki/Setup/Yaml.pm b/IkiWiki/Setup/Yaml.pm index 8ad44eb4a..8b876e297 100644 --- a/IkiWiki/Setup/Yaml.pm +++ b/IkiWiki/Setup/Yaml.pm @@ -19,10 +19,6 @@ sub loaddump ($$) { sub gendump ($@) { my $class=shift; - eval q{use YAML::Any}; - eval q{use YAML} if $@; - die $@ if $@; - "# IkiWiki::Setup::Yaml - YAML formatted setup file", "#", (map { "# $_" } @_), @@ -37,7 +33,11 @@ sub dumpline ($$$$) { my $type=shift; my $prefix=shift; + eval q{use YAML::Old}; + eval q{use YAML} if $@; + die $@ if $@; $YAML::UseHeader=0; + my $dump=Dump({$key => $value}); chomp $dump; if (length $prefix) { |