13 lines
439 B
Text
13 lines
439 B
Text
$NetBSD: patch-aa,v 1.4 2003/12/15 21:22:41 wiz Exp $
|
|
|
|
--- dblib.pl.orig Mon Oct 28 23:46:40 2002
|
|
+++ dblib.pl Mon Dec 15 21:04:54 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) {
|