urosm
/
ikiwiki
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

loosen qw regexp

master
Joey Hess 2008-08-03 22:01:11 -04:00
parent 0bdba1e81c
commit a4ce6550eb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
IkiWiki/Setup/Standard.pm
View File

@ -32,7 +32,7 @@ sub dumpline ($$$$) { #{{{
# avoid quotes
$dumpedvalue=$value;
}
elsif (ref $value eq 'ARRAY' && @$value && ! grep { /[^-A-Za-z0-9_]/ } @$value) {
elsif (ref $value eq 'ARRAY' && @$value && ! grep { /[^\S]/ } @$value) {
# dump simple array as qw{}
$dumpedvalue="[qw{".join(" ", @$value)."}]";
}