improve formatting
authorJoey Hess <joey@kodama.kitenet.net>
Sat, 26 Jul 2008 05:58:36 +0000 (01:58 -0400)
committerJoey Hess <joey@kodama.kitenet.net>
Sat, 26 Jul 2008 05:58:36 +0000 (01:58 -0400)
IkiWiki/Setup/Standard.pm

index 2420a66442f78210240b4d5140d2b54d36cf49bb..dd9368986af9d7647df70dcb115142a0fe9a194c 100644 (file)
@@ -18,6 +18,8 @@ sub generate (@) { #{{{
        eval q{use Data::Dumper};
        error($@) if $@;
        local $Data::Dumper::Terse=1;
+       local $Data::Dumper::Sortkeys=1;
+       local $Data::Dumper::Pad="\t";
 
        my @ret="#!/usr/bin/perl
 # Setup file for ikiwiki.
@@ -53,6 +55,7 @@ use IkiWiki::Setup::Standard {";
        
                        my $dumpedvalue=Dumper($value);
                        chomp $dumpedvalue;
+                       $dumpedvalue=~/^\t//;
                        push @ret, "\t$prefix$key=$dumpedvalue,";
                }
                push @ret, "";