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: "Srinivasan, Ravikumar" <ravikumar dot srinivasan at gs dot com>
Subject: RE: DBD::Sybase 1.07 install on Solaris 8 - failing t/exec.t test #11
Date: Nov 3 2005 3:10PM

Don't think so. Don't see it anywhere.
-R


  Platform:
    osname=solaris, osver=2.5.1, archname=sun4-solaris
    uname='sunos nytrdc007.eq.gs.com 5.5.1 generic sun4u sparc sunw,ultra-2
'
    hint=recommended, useposix=true, d_sigaction=define
  Compiler:
    cc='gcc', optimize='-O', gccversion=2.6.3
    cppflags=''
    ccflags =''
    stdchar='unsigned char', d_stdstdio=define, usevfork=false
    voidflags=15, castflags=0, d_casti32=define, d_castneg=define
    intsize=4, alignbytes=8, usemymalloc=y, randbits=15
  Linker and Libraries:
    ld='gcc', ldflags =' -L/usr/local/lib -L/opt/local/lib'
    libpth=/usr/local/lib /opt/local/lib /lib /usr/lib /usr/ccs/lib
    libs=-lsocket -lnsl -ldl -lm -lc -lcrypt
    libc=/lib/libc.so, so=so
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=, ccdlflags=' '
    cccdlflags='-fpic', lddlflags='-G -L/usr/local/lib -L/opt/local/lib'

 

-----Original Message-----
From: owner-sybperl-l@peppler.org [mailto:owner-sybperl-l@peppler.org] On
Behalf Of Michael Peppler
Sent: Thursday, November 03, 2005 1:22 AM
To: sybperl-l@peppler.org
Subject: Re: DBD::Sybase 1.07 install on Solaris 8 - failing t/exec.t test
#11

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