blob: d198e4c4de92eb570ec9db875f14d104ed400a43 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
|
--- d Wed Feb 12 15:33:25 2003
+++ dblib.pl Wed Feb 12 15:33:39 2003
@@ -330,7 +330,7 @@
sub force_numeric {
my($value, $ignore_non_numeric) = @_;
- if ($value =~ /^[-+]?[0-9]+(.[0-9]+)?(e[-+0-9]+)?$/) {
+ if ($value =~ /^\s*[-+]?[0-9]+(.[0-9]+)?(e[-+0-9]+)?\s*$/) {
return $value + 0.0; # force numeric
} else {
if ($ignore_non_numeric) {
|