diff options
author | Simon McVittie <smcv@debian.org> | 2016-01-18 08:45:18 +0000 |
---|---|---|
committer | Simon McVittie <smcv@debian.org> | 2016-01-19 11:24:18 +0000 |
commit | 317d19842c40b5056989ad0ce22b632df9153444 (patch) | |
tree | b3db7af611c184d375c3b709528302c9d93c8263 /IkiWiki/Setup | |
parent | e33b4678c7da6d2dec293ca3a3f5510681668898 (diff) | |
download | ikiwiki-317d19842c40b5056989ad0ce22b632df9153444.tar ikiwiki-317d19842c40b5056989ad0ce22b632df9153444.tar.gz |
Silence "used only once: possible typo" warnings for variables that are part of modules' APIs
Diffstat (limited to 'IkiWiki/Setup')
-rw-r--r-- | IkiWiki/Setup/Standard.pm | 2 | ||||
-rw-r--r-- | IkiWiki/Setup/Yaml.pm | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/IkiWiki/Setup/Standard.pm b/IkiWiki/Setup/Standard.pm index ea7d763bb..07a66f3db 100644 --- a/IkiWiki/Setup/Standard.pm +++ b/IkiWiki/Setup/Standard.pm @@ -33,6 +33,7 @@ sub dumpline ($$$$) { eval q{use Data::Dumper}; error($@) if $@; + no warnings 'once'; local $Data::Dumper::Terse=1; local $Data::Dumper::Indent=1; local $Data::Dumper::Pad="\t"; @@ -40,6 +41,7 @@ sub dumpline ($$$$) { local $Data::Dumper::Quotekeys=0; # only the perl version preserves utf-8 in output local $Data::Dumper::Useperl=1; + use warnings; my $dumpedvalue; if (($type eq 'boolean' || $type eq 'integer') && $value=~/^[0-9]+$/) { diff --git a/IkiWiki/Setup/Yaml.pm b/IkiWiki/Setup/Yaml.pm index 6bf20f480..8edd7126b 100644 --- a/IkiWiki/Setup/Yaml.pm +++ b/IkiWiki/Setup/Yaml.pm @@ -35,7 +35,9 @@ sub dumpline ($$$$) { eval q{use YAML::XS}; die $@ if $@; + no warnings 'once'; $YAML::XS::QuoteNumericStrings=0; + use warnings; my $dump=decode_utf8(Dump({$key => $value})); $dump=~s/^---\n//; # yaml header, we don't want |