local $Data::Dumper::Quotekeys=0;
my $dumpedvalue;
- if ($type eq 'boolean' || $type eq 'integer') {
+ if (($type eq 'boolean' || $type eq 'integer') && $value=~/^[0-9]+$/) {
# avoid quotes
$dumpedvalue=$value;
}
my $key=shift;
my %info=%{shift()};
- next if $info{type} eq "internal";
+ next if $info{type} eq "internal" || $key eq "plugin";
push @ret, "\t# ".$info{description} if exists $info{description};