diff options
author | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2000-12-15 00:06:24 +0000 |
---|---|---|
committer | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2000-12-15 00:06:24 +0000 |
commit | b4bfd4c2ca0e5020be2a4bec78efced3f66cadf5 (patch) | |
tree | 278ea280814a4e31c097bb91f5a11069c0e5aaac /lib | |
parent | bd9d3061a6aee3ce5ec1b6d0a9623c85941fcc30 (diff) |
Convert floating point numbers with D as the exponent marker to 'e'.
This gets round a problem on the Hitachi machine. Now AHFinder
tests pass there.
Tom
git-svn-id: http://svn.cactuscode.org/flesh/trunk@1951 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib')
-rw-r--r-- | lib/sbin/Runtest.pl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/sbin/Runtest.pl b/lib/sbin/Runtest.pl index 56bbf3d6..aa8706ec 100644 --- a/lib/sbin/Runtest.pl +++ b/lib/sbin/Runtest.pl @@ -371,6 +371,10 @@ sub runtest { # This is the new comparison (subtract last two numbers) ($t1,$v1) = split(' ', $nline); ($t2,$v2) = split(' ', $oline); +# Make sure that floating point numbers have 'e' if exponential. + $v1 =~ s/[dD]/e/; + $v2 =~ s/[dD]/e/; + $vdiff = abs($v1 - $v2); if ($vdiff > 0) { |