sybperl-l Archive

From: "McCallum, Duncan" <Duncan dot Mccallum at bmo dot com>
Subject: Problem with DBD::Sybase
Date: Feb 2 2000 3:52PM

Received: from taku.cren.net (taku.cren.net [192.52.179.212])
	by kiruna.peppler.org (8.9.1b+Sun/8.9.1) with ESMTP id HAA13439
	for ; Wed, 2 Feb 2000 07:56:34 -0800 (PST)
Received: from localhost (localhost [127.0.0.1])
	by taku.cren.net (Pro-8.9.3/Pro-8.9.3) with SMTP id KAA08686;
	Wed, 2 Feb 2000 10:53:37 -0500 (EST)
Received: from is2.nesbittburns.com (torfw1.nesbittburns.com [192.139.71.69])
	by taku.cren.net (Pro-8.9.3/Pro-8.9.3) with ESMTP id KAA08680
	for ; Wed, 2 Feb 2000 10:53:33 -0500 (EST)
Received: (from qmaild@localhost)
	by is2.nesbittburns.com (8.8.8+Sun/8.8.8) id KAA12457
	for SYBPERL-L@list.cren.net; Wed, 2 Feb 2000 10:53:06 -0500 (EST)
Received: (qmail 12449 invoked from network); 2 Feb 2000 15:53:04 -0000
Received: (qmail 12445 invoked from network); 2 Feb 2000 15:53:04 -0000
Received: from torfw1.nesbittburns.com (HELO nesbittburns.ca) (192.139.71.69)
  by is2.nesbittburns.com with SMTP; 2 Feb 2000 15:53:04 -0000
Received: from nbnotomail2.nesbittburns.ca (nbnotomail2 [165.185.33.11])
	by nesbittburns.ca (8.8.8+Sun/mail.byaddr) with ESMTP id KAA17206;
	Wed, 2 Feb 2000 10:52:54 -0500 (EST)
Received: by nbnotomail2.nesbittburns.ca with Internet Mail Service (5.5.2650.21)
	id ; Wed, 2 Feb 2000 10:53:00 -0500
Message-ID: 
From: "McCallum, Duncan" 
To: SybPerl Discussion List 
Subject: Problem with DBD::Sybase
Date: Wed, 2 Feb 2000 10:52:53 -0500 
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2650.21)
Content-Type: multipart/mixed;
	boundary="----_=_NextPart_000_01BF6D95.947A1390"
Reply-To: SYBPERL-L@list.cren.net
Sender: owner-SYBPERL-L@list.cren.net
X-Listprocessor-Version: 8.2.09/990901/11:28 -- ListProc(tm) by CREN
Content-Length: 12408
X-Filter: mailagent [version 3.0 PL63] for mpeppler@peppler.org

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.

------_=_NextPart_000_01BF6D95.947A1390
Content-Type: multipart/alternative;
	boundary="----_=_NextPart_001_01BF6D95.947A1390"

------_=_NextPart_001_01BF6D95.947A1390
Content-Type: text/plain;
	charset="iso-8859-1"

I'm having a problem with the DBD::Sybase driver:
 
make, make test & make install seem to be fine (see the "make tests"
attachment).
 
The script ot.pl just shows the available servers for each driver (see the
"ot.pl" attachment).
 
But when I run it I get an error from Dyna Loader when it tries to load the
Sybase Driver (see the "err" attachment).
 
Where would this symbol 'comn_free' be ?
 
I've tried both ASE 11.9.2 and 11.5.1 with the same result
 
Any ideas how I can fix this?

------_=_NextPart_001_01BF6D95.947A1390
Content-Type: text/html;
	charset="iso-8859-1"








I'm 
having a problem with the DBD::Sybase driver:
 
make, 
make test & make install seem to be fine (see the "make tests" 
attachment).
 
The 
script ot.pl just shows the available servers for each driver (see the "ot.pl" 
attachment).
 
But 
when I run it I get an error from Dyna Loader when it tries to load the Sybase 
Driver (see the "err" attachment).
 
Where 
would this symbol 'comn_free' be ?
 
I've 
tried both ASE 11.9.2 and 11.5.1 with the same result
 
Any 
ideas how I can fix this?

------_=_NextPart_001_01BF6D95.947A1390--

------_=_NextPart_000_01BF6D95.947A1390
Content-Type: message/rfc822
Content-Description: ot

Message-ID: 
From: DBA Admin 
To: dmccallu@tsc008.tor.treasury.bmo.com
Subject: ot
Date: Tue, 1 Feb 2000 18:27:39 -0500 
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2650.21)
X-UIDL: 374f0a8e3eeb356d8729cb7ae2a098c1
Content-Type: multipart/alternative;
	boundary="----_=_NextPart_003_01BF6D95.947A1390"

------_=_NextPart_003_01BF6D95.947A1390
Content-Type: text/plain;
	charset="iso-8859-1"

#! /opt/PERLperl/bin/perl

BEGIN { unshift (@INC, $ENV{TT_LIB_DIR}) }

#$| = 1;

use DBI;

use common;
use messaging;

my @driver_names;
my $driver;
my @data_sources;

    # Some checks and defaults
    die longmess ("\$SYBASE must be defined") unless $ENV{SYBASE};
    die longmess ("\$ORACLE_HOME must be defined") unless $ENV{ORACLE_HOME};

@driver_names = DBI->available_drivers;
print "Driver names:\n\t", join("\n\t",@driver_names),"\n\n";

foreach $driver (@driver_names) {
    if ($driver ne "Proxy") {
        @data_sources = DBI->data_sources($driver);
	print "Data sources for $driver:\n\t",
join("\n\t",@data_sources),"\n\n";
	}
    }

------_=_NextPart_003_01BF6D95.947A1390
Content-Type: text/html;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable










#! /opt/PERLperl/bin/perl


BEGIN { unshift (@INC, $ENV{TT_LIB_DIR}) }


#$| =3D 1;


use DBI;


use common;

use messaging;


my @driver_names;

my $driver;

my @data_sources;


    # Some checks and defaults

    die longmess ("\$SYBASE must be =
defined") unless $ENV{SYBASE};

    die longmess ("\$ORACLE_HOME mus=
t be defined") unless $ENV{ORACLE_HOME};


@driver_names =3D DBI->available_drivers;

print "Driver names:\n\t", join("\n\t&quo=
t;,@driver_names),"\n\n";


foreach $driver (@driver_names) {

    if ($driver ne "Proxy") {

        @data_sources=
 =3D DBI->data_sources($driver);

        print "D=
ata sources for $driver:\n\t", join("\n\t",@data_sources),&q=
uot;\n\n";

        }

    }




------_=_NextPart_003_01BF6D95.947A1390--

------_=_NextPart_000_01BF6D95.947A1390
Content-Type: message/rfc822
Content-Description: err

Message-ID: 
From: DBA Admin 
To: dmccallu@tsc008.tor.treasury.bmo.com
Subject: err
Date: Tue, 1 Feb 2000 18:32:23 -0500 
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2650.21)
X-UIDL: cd52d6a03e512f3250def79ab05b12e6
Content-Type: multipart/alternative;
	boundary="----_=_NextPart_003_01BF6D95.947A1390"

------_=_NextPart_003_01BF6D95.947A1390
Content-Type: text/plain;
	charset="iso-8859-1"

Driver names:
	ADO
	CSV
	ExampleP
	File
	Oracle
	Proxy
	Sybase

Data sources for ADO:
	

Data sources for CSV:
	

Data sources for ExampleP:
	dbi:ExampleP:dir=.

Data sources for File:
	

Data sources for Oracle:
	dbi:Oracle:EMU01.TOR.TREASURY.BMO.COM
	dbi:Oracle:FIU01.TOR.TREASURY.BMO.COM
	dbi:Oracle:ORA001
	dbi:Oracle:ORA001.TOR.TREASURY.BMO.COM

install_driver(Sybase) failed: Can't load
'/opt/PERLperl/lib/site_perl/5.005/sun4-solaris/auto/DBD/Sybase/Sybase.so'
for module DBD::Sybase: ld.so.1: /opt/PERLperl/bin/perl: fatal: relocation
error: file /opt/sybase/ase1192/lib/libtcl.so: symbol comn_free: referenced
symbol not found at /opt/PERLperl/lib/5.00502/sun4-solaris/DynaLoader.pm
line 168.

 at (eval 21) line 2

 at ot.pl line 35

------_=_NextPart_003_01BF6D95.947A1390
Content-Type: text/html;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable










Driver names:

        ADO

        CSV

        ExampleP

        File

        Oracle

        Proxy

        Sybase


Data sources for ADO:

       =20


Data sources for CSV:

       =20


Data sources for ExampleP:

        dbi:ExampleP:=
dir=3D.


Data sources for File:

       =20


Data sources for Oracle:

        dbi:Oracle:EM=
U01.TOR.TREASURY.BMO.COM

        dbi:Oracle:FI=
U01.TOR.TREASURY.BMO.COM

        dbi:Oracle:OR=
A001

        dbi:Oracle:OR=
A001.TOR.TREASURY.BMO.COM


install_driver(Sybase) failed: Can't load '/opt/PERLperl/=
lib/site_perl/5.005/sun4-solaris/auto/DBD/Sybase/Sybase.so' for module DBD:=
:Sybase: ld.so.1: /opt/PERLperl/bin/perl: fatal: relocation error: file /op=
t/sybase/ase1192/lib/libtcl.so: symbol comn_free: referenced symbol not fou=
nd at /opt/PERLperl/lib/5.00502/sun4-solaris/DynaLoader.pm line 168.=


 at (eval 21) line 2


 at ot.pl line 35




------_=_NextPart_003_01BF6D95.947A1390--

------_=_NextPart_000_01BF6D95.947A1390
Content-Type: message/rfc822
Content-Description: make tests

Message-ID: 
From: Duncan McCallum - DBA 
To: dmccallu@tsc008.tor.treasury.bmo.com
Subject: make tests
Date: Wed, 2 Feb 2000 10:35:44 -0500 
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2650.21)
X-UIDL: 1922c6412371e11f5331afb8b053d130
Content-Type: multipart/alternative;
	boundary="----_=_NextPart_003_01BF6D95.947A1390"

------_=_NextPart_003_01BF6D95.947A1390
Content-Type: text/plain;
	charset="iso-8859-1"

tsc008# /usr/ccs/bin/make test
PERL_DL_NONLAZY=1 /usr/bin/perl -Iblib/arch -Iblib/lib
-I/opt/PERLperl/lib/5.00502/sun4-solaris -I/opt/PERLperl/lib/5.00502 -e 'use
Test::Harness qw(&runtests $verbose); $verbose=0; runtests @ARGV;' t/*.t
t/autocommit........ok
t/base..............ok
t/fail..............ok
t/login.............ok
t/main..............ok
t/place.............ok
All tests successful.
Files=6,  Tests=48,  3 wallclock secs ( 1.82 cusr +  0.23 csys =  2.05 CPU)

------_=_NextPart_003_01BF6D95.947A1390
Content-Type: text/html;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable










tsc008# /usr/ccs/bin/make test

PERL_DL_NONLAZY=3D1 /usr/bin/perl -Iblib/arch -Iblib/lib=
 -I/opt/PERLperl/lib/5.00502/sun4-solaris -I/opt/PERLperl/lib/5.00502 -e 'u=
se Test::Harness qw(&runtests $verbose); $verbose=3D0; runtests @ARGV;'=
 t/*.t

t/autocommit........ok

t/base..............ok

t/fail..............ok

t/login.............ok

t/main..............ok

t/place.............ok

All tests successful.

Files=3D6,  Tests=3D48,  3 wallclock secs ( 1.=
82 cusr +  0.23 csys =3D  2.05 CPU)




------_=_NextPart_003_01BF6D95.947A1390--

------_=_NextPart_000_01BF6D95.947A1390--