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: Dan Johansson <Dan dot Johansson at mrmusic dot de>
Subject: Followup to SybPerl 2.09_01 on HP-UX 10.10
Date: Mar 10 1998 4:36PM

I've done some more checking and what I've found is the following:
IF I comment out the following two lines in ./CTlib/t/vtlib.t
ct_callback(CS_CLIENTMSG_CB, \&msg_cb); and
ct_callback(CS_SERVERMSG_CB, \&srv_cb);

the test passes. If I on the other hand run the testscript with
perl -w -d I'm getting the following output:

> main::(ctlib.t:43):     ( $X = Sybase::CTlib->ct_connect($Uid, $Pwd, $Srv, '', {LastError => 0}) )
> main::(ctlib.t:44):         and print("ok 2\n")
> main::(ctlib.t:45):         or print "not ok 2
> main::(ctlib.t:46):     -- The supplied login id/password combination may be invalid\n";
>   DB<1> 
> Sybase::CTlib::ct_connect(/usr/contrib/lib/perl5/Carp.pm:73):
> 73:         my $error = join '', @_;
>   DB<1> 
> Sybase::CTlib::ct_connect(/usr/contrib/lib/perl5/Carp.pm:74):
> 74:         my $mess = "";
>   DB<1> 
> Sybase::CTlib::ct_connect(/usr/contrib/lib/perl5/Carp.pm:75):
> 75:         my $i = 1 + $CarpLevel;
>   DB<1> 
> Sybase::CTlib::ct_connect(/usr/contrib/lib/perl5/Carp.pm:76):
> 76:         my ($pack,$file,$line,$sub,$hargs,$eval,$require);
>   DB<1> 
> Sybase::CTlib::ct_connect(/usr/contrib/lib/perl5/Carp.pm:77):
> 77:         my (@a);
>   DB<1> 
> Sybase::CTlib::ct_connect(/usr/contrib/lib/perl5/Carp.pm:125):
> 125:        my $msg = \($mess || $error);
>   DB<1> 
> Sybase::CTlib::ct_connect(/usr/contrib/lib/perl5/Carp.pm:78):
> 78:         while (do { { package DB; @a = caller($i++) } } ) {
>   DB<1> 
> Sybase::CTlib::ct_connect(/usr/contrib/lib/perl5/Carp.pm:125):
> 125:        my $msg = \($mess || $error);
>   DB<1> 
> Sybase::CTlib::ct_connect(/usr/contrib/lib/perl5/Carp.pm:126):
> 126:        $$msg =~ tr/\0//d;
>   DB<1> 
> Sybase::CTlib::ct_connect(/usr/contrib/lib/perl5/Carp.pm:127):
> 127:        $$msg;
>   DB<1> 
> Signal SEGV: Operation would block
> Abort(coredump)

I hope this can cast some light on my problem for thouse of you
who knows SybPerl (and Perl) better than I do.

//Dan
-- 
======================================================================
Dan Johansson                     Tel   :+49-(0)89 / 74 11 46 25
Mr Music Production GmbH          Fax   :+49-(0)89 / 74 11 46 46
Fuerstenriederstr. 279a           mailto:Dan.Johansson@mrmusic.de
D-81377 Munich
Germany             *** Don't drink and root! ***
----------------------------------------------------------------------
         This message is printed on 100% recycled electrons! 
======================================================================