[Bio] / Sprout / ERDBTypeFloat.pm Repository:
ViewVC logotype

Diff of /Sprout/ERDBTypeFloat.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2, Mon Mar 2 22:20:58 2009 UTC revision 1.3, Tue Apr 7 14:12:29 2009 UTC
# Line 127  Line 127 
127      my ($self, $value) = @_;      my ($self, $value) = @_;
128      # Assume it's valid until we prove otherwise.      # Assume it's valid until we prove otherwise.
129      my $retVal = "";      my $retVal = "";
130      if (not $value =~ /^[+-]?\d+(\.\d+)?([Ee][+-]?\d+)?$/) {      if (not $value =~ /^[+-]?(?:\d+\.?|\d+\.\d+|\.\d+)(?:[Ee][+-]?\d+)?$/) {
131          $retVal = "Floating-point value \"$value\" is not numeric.";          $retVal = "Floating-point value \"$value\" is not numeric.";
132      }      }
133      # Return the determination.      # Return the determination.

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3