sybperl-l Archive

From: "Abohebeish, Eman" <Eman dot Abohebeish at disney dot com>
Subject: ctlib error
Date: Nov 2 1999 7:34PM

Hi,

I  was hopeing someone could shed light on the error I am getting below.  I
was able to install Perl5/Sybperl on one machine, and run the ctlib.t test
file just fine.  When I installed Perl5/Sybperl on another UNIX box (same
OS), I get the following error when I run ctlib.t.  I know that CTlib is
fine because I use it in my 'C' code.  
----------------------------------------------------------------------------
----------------------------------------------------

psoft@bandit /perl/sybperl-2.11/CTlib/t>>perl ctlib.t
1..30
ok 1
Sybperl Version This is sybperl, version 2.11

Sybase::CTlib $Revision: 1.40 $ $Date: 1999/09/21 21:05:01 $

Copyright (c) 1995-1999 Michael Peppler
Portions Copyright (c) 1995 Sybase, Inc.



Open Client Message: (In msg_cb)
Message number: LAYER = (6) ORIGIN = (8) SEVERITY = (5) NUMBER = (1)
Message String: ct_connect(): directory service layer: internal directory
contro
l layer error: There was an error encountered while binding to the directory
ser
vice.
not ok 2
-- The supplied login id/password combination may be invalid
Can't call method "ct_execute" on an undefined value at ctlib.t line 53.
psoft@bandit /perl/sybperl-2.11/CTlib/t>>                  
----------------------------------------------------------------------------
----------------------------------------------------

Here is part of the code which I modified to test ctlib.t:
----------------------------------------------------------------------------
----------------------------------------------------
#( $X = Sybase::CTlib->ct_connect($Uid, $Pwd, $Srv, '', {LastError => 0}) )
( $X = Sybase::CTlib->ct_connect('USER1', 'USER1_PASS', 'DEVELOP' , '',
{LastError => 0
}) )
    and print("ok 2\n")
    or print "not ok 2
-- The supplied login id/password combination may be invalid\n";


(($rc = $X->ct_execute("use master")) == CS_SUCCEED)
    and print "ok 3\n"
    or print "not ok 3\n"