Fixing get_type()

bessarabov · Sep 25, 2023 · 439abe1 · 439abe1
1 parent 12aefd4
commit 439abe1
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/tests/get_type.t b/tests/get_type.t
@@ -25,6 +25,7 @@ my %tests = (
         '1.0',
         '0.0',
         '-1.0',
+        '1.123',
     ],
 );
 

diff --git a/tsv2table b/tsv2table
@@ -71,7 +71,7 @@ sub get_type {
 
     if ($value =~ /^-?\d+\z/a) {
         return 'int';
-    } elsif ($value =~ /^-?\d+\.\d\z/a) {
+    } elsif ($value =~ /^-?\d+\.\d+\z/a) {
         return 'float';
     } else {
         return 'string';