$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) {
