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: Michael Peppler <mpeppler at peppler dot org>
Subject: Re: DBD::Sybase 1.07 install on Solaris 8 - failing t/exec.t test #11
Date: Nov 3 2005 6:21AM

On Wed, 2005-11-02 at 15:03 -0800, Greg Earle wrote:
> 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*>)

Do you have long doubles enabled on your perl?

Michael
-- 
Michael Peppler  -  mpeppler@peppler.org  -  http://www.peppler.org/
Sybase DBA/Developer - TeamSybase: http://www.teamsybase.com/
Sybase on Linux FAQ: http://www.peppler.org/FAQ/linux.html