Bug 179264 - only quote non-numeric CSV values. Patch by gerv; r=joel, a=justdave.

This commit is contained in:
gerv%gerv.net 2002-11-16 20:39:13 +00:00
Родитель bdc9d8929a
Коммит 2bc532d5d3
1 изменённых файлов: 3 добавлений и 1 удалений

Просмотреть файл

@ -1591,7 +1591,9 @@ $::template ||= Template->new(
{
my ($var) = @_;
$var =~ s/"/""/g;
$var = "\"$var\"";
if ($var !~ /^-?(\d+\.)?\d*$/) {
$var = "\"$var\"";
}
return $var;
} ,
} ,