Photos
Blog
Projects
vanrenterghem.biz
projects
/
git.ikiwiki.info.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Check for existence off srcfile in add_autofile
[git.ikiwiki.info.git]
/
IkiWiki
/
Setup
/
Standard.pm
diff --git
a/IkiWiki/Setup/Standard.pm
b/IkiWiki/Setup/Standard.pm
index 8a11b2ec6ba366dd49049add8b9ad320d78faaf9..951bcfc56febfce724d82c652f96468c227709d2 100644
(file)
--- a/
IkiWiki/Setup/Standard.pm
+++ b/
IkiWiki/Setup/Standard.pm
@@
-9,11
+9,11
@@
use warnings;
use strict;
use IkiWiki;
use strict;
use IkiWiki;
-sub import {
#{{{
+sub import {
IkiWiki::Setup::merge($_[1]);
IkiWiki::Setup::merge($_[1]);
-}
#}}}
+}
-sub dumpline ($$$$) {
#{{{
+sub dumpline ($$$$) {
my $key=shift;
my $value=shift;
my $type=shift;
my $key=shift;
my $value=shift;
my $type=shift;
@@
-26,6
+26,8
@@
sub dumpline ($$$$) { #{{{
local $Data::Dumper::Pad="\t";
local $Data::Dumper::Sortkeys=1;
local $Data::Dumper::Quotekeys=0;
local $Data::Dumper::Pad="\t";
local $Data::Dumper::Sortkeys=1;
local $Data::Dumper::Quotekeys=0;
+ # only the perl version preserves utf-8 in output
+ local $Data::Dumper::Useperl=1;
my $dumpedvalue;
if (($type eq 'boolean' || $type eq 'integer') && $value=~/^[0-9]+$/) {
my $dumpedvalue;
if (($type eq 'boolean' || $type eq 'integer') && $value=~/^[0-9]+$/) {
@@
-53,9
+55,9
@@
sub dumpline ($$$$) { #{{{
}
return "\t$prefix$key => $dumpedvalue,";
}
return "\t$prefix$key => $dumpedvalue,";
-}
#}}}
+}
-sub dumpvalues ($@) {
#{{{
+sub dumpvalues ($@) {
my $setup=shift;
my @ret;
while (@_) {
my $setup=shift;
my @ret;
while (@_) {
@@
-78,15
+80,15
@@
sub dumpvalues ($@) { #{{{
}
}
return @ret;
}
}
return @ret;
-}
#}}}
+}
-sub gendump ($) {
#{{{
+sub gendump ($) {
my $description=shift;
my %setup=(%config);
my @ret;
# disable logging to syslog while dumping
my $description=shift;
my %setup=(%config);
my @ret;
# disable logging to syslog while dumping
- $config{syslog}=
0
;
+ $config{syslog}=
undef
;
push @ret, dumpvalues(\%setup, IkiWiki::getsetup());
foreach my $pair (IkiWiki::Setup::getsetup()) {
push @ret, dumpvalues(\%setup, IkiWiki::getsetup());
foreach my $pair (IkiWiki::Setup::getsetup()) {
@@
-110,6
+112,6
@@
sub gendump ($) { #{{{
push @ret, "}";
return @ret;
push @ret, "}";
return @ret;
-}
#}}}
+}
1
1