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

diff --git a/globals.pl b/globals.pl
index 170ec8c41eb18e1bb11549d1450facfa9a5a4e63..3a2ff71a99d9e3c9e831f3d84634f1fdef458795 100644 (file)
--- a/globals.pl
+++ b/globals.pl
@@ -1591,7 +1591,9 @@ $::template ||= Template->new(
         {
             my ($var) = @_;
             $var =~ s/"/""/g;
-            $var = "\"$var\"";
+            if ($var !~ /^-?(\d+\.)?\d*$/) {
+                $var = "\"$var\"";
+            }
             return $var;
         } ,
       } ,