PEPPLER.ORG
Michael Peppler
Sybase Consulting
Menu
Home
Sybase on Linux
Install Guide for Sybase on Linux
General Sybase Resources
General Perl Resources
Freeware
Sybperl
Sybase::Simple
DBD::Sybase
BCP Tool
Bug Tracker
Mailing List Archive
Downloads Directory
FAQs
Sybase on Linux FAQ
Sybperl FAQ
Personal
Michael Peppler's resume

sybperl-l Archive

Up    Prev    Next    

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