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: "John M dot Campbell" <jmc at cos dot com>
Subject: Re: dbpoll and Digital
Date: Jun 3 1999 5:40PM

The problem appears to be with the version of Perl and not with Sybperl. Both Sybperl
2.10 and 2.10.02 pass "make test" when using Perl 5.00502, but fails with Perl 5.00503.
Both versions of Perl seem to compiled using the same flags and libraries. If we find
out more we will post to this list.

Thank you for a great service for the Sybase user community.

- John Campbell

Michael Peppler wrote:

> John M. Campbell writes:
>  >
>  >   In late May there was some discussion on a bug with dbpoll. We have also run
>  > into the the same bug on Digital  Unix 4.0D, Perl 5.00503 and Sybperl 2.10.02.
>  > "make test" fails during the dbpoll tests. On the same machine, we have Perl
>  > 5.00502 and Sybperl 2.10, which passes all the tests during "make test". Both
>  > versions are using the same set of Sybase client libraries.
>  >
>  >   My real question is can we ignore the errors if we are not going to use dbpoll
>  > ?
>  >
>
> Hmmm....
>
> That might be a bug in the dblib.t test file (in
> sybperl-2.10xxx/DBlib/t/dblib.t.
>
> The one for 2.10 has:
>
> $X->dbcmd("select * from master..sysprocesses");
> $X->dbsqlsend;
> my ($x, $reason) = Sybase::DBlib->dbpoll(-1);
> (ref($x) eq 'Sybase::DBlib')
>     and print "ok 20\n"
>     or print "not ok 20\n";
>
> where the one for 2.10_02 has
>
> $X->dbcmd("select * from master..sysprocesses");
> $X->dbsqlsend;
> my $count = 0;
> my ($x, $reason);
>
> do {
>     ($x, $reason) = Sybase::DBlib->dbpoll(-1);
>     ++$count;
>     print "dbpoll: reason = $reason\n";
> } while($count < 20 && $reason != DBRESULT);
>
> exit if $reason != DBRESULT;
>
> (ref($x) eq 'Sybase::DBlib')
>     and print "ok 20\n"
>     or print "not ok 20\n";
>
> And I guess on Digital that loop fails...
>
> Could you try using the 2.10 dblib.t on the 2.10_02 build and see if
> that works better?
>
> BTW - as to your question - if you don't use dbpoll() then you won't
> be affected by this issue.
>
> Thanks.
>
> Michael
> --
> Michael Peppler         -||-  Data Migrations Inc.
> mpeppler@peppler.org    -||-  http://www.mbay.net/~mpeppler
> Int. Sybase User Group  -||-  http://www.isug.com
> Sybase on Linux mailing list: ase-linux-list@isug.com