sybperl-l Archive

From: Greg Earle <earle at isolar dot DynDNS dot ORG>
Subject: Re: DBD::Sybase 1.07 install on Solaris 8 - failing t/exec.t test #11
Date: Nov 2 2005 11:03PM

On Nov 2, 2005, at 2:16 PM, Srinivasan, Ravikumar wrote:
> #!/usr/local/bin/perl
> $x=5.40000000000000035527136788005009;
> if ($x==5.40000000000000035527136788005009)
> {
> print "same\n";
> }
> else
> {
> print "not the same\n";
> }

Apparently even this 5.40000000000000035527136788005009 is a round-off!

I added a

print($out[0] - 5.40000000000000035527136788005009);

after the

print("@out\n");

Michael suggested, and, and instead of seeing

5.40000000000000035527136788005009
0

as I expected, I get

5.40000000000000035527136788005009
3.08148791101957736488956470813588e-33

So it looks like there's no way for me to have an exact match test.
(So I commented that test out after all <*grin*>)

Again, I must ask - why does my Sybase 12.5.1 installation's
"$sth->func('syb_output_params');" function return this long
mutant float instead of just "5.4", that everyone else who
installs DBD-Sybase 1.07 apparently gets?  Sigh ...

	- Greg