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;
}
- elsif ($type eq 'string' && ref $value eq 'ARRAY' && @$value &&
- ! grep { /[^-A-Za-z0-9_]/ } @$value) {
+ elsif (ref $value eq 'ARRAY' && @$value && ! grep { /[^-A-Za-z0-9_]/ } @$value) {
# dump simple array as qw{}
$dumpedvalue="[qw{ ".join(" ", @$value)." }]";
}