Michael Peppler
Sybase Consulting
Sybase on Linux
Install Guide for Sybase on Linux
General Sybase Resources
General Perl Resources
BCP Tool
Bug Tracker
Mailing List Archive
Downloads Directory
Sybase on Linux FAQ
Sybperl FAQ
Michael Peppler's resume

sybperl-l Archive

Up    Prev    Next    

From: rsmith at proteus dot arc dot nasa dot gov
Subject: Problem Installing... test 13 fails in DBlib, Please help
Date: Mar 7 1996 9:20PM

Hi All

We have been thrashing with this problem for several days now and
have definately concluded that we don't know if it is a perl,
sybperl, or sybase problem.

The tests for CTlib all run OK to completion, but the tests for DBlib
yield the following results:

PERL_DL_NONLAZY=1 /bin/perl -I../blib/arch -I../blib/lib -I/usr/local/lib/perl5/sun4-solaris/5.002 -I/usr/local/lib/perl5 -e 'use Test::Harness qw(&runtests $verbose); $verbose=1; runtests @ARGV;' t/*.t
t/dblib.............Bizarre copy of CODE in entersub at t/dblib.t line 93.
Sybperl Version This is sybperl, version 2.0

Sybase::DBlib version 1.22 9/28/95

Copyright (c) 1991-1995 Michael Peppler

ok 1
ok 2
ok 3
ok 4
ok 5
ok 6
ok 7
ok 8
ok 9
ok 10
ok 11
ok 12
ok 12
Aborting test: output counter mismatch [test 12 answered when test 13 expected]
FAILED tests 13-16
        Failed 4/16 tests, 75.00% okay
        Test returned status 255 (wstat 65280)
Failed 1 test script, 0.00% okay. 3/16 subtests failed, 81.25% okay.
*** Error code 29
make: Fatal error: Command failed for target `test_dynamic'
Current working directory /opt/local/src/perl/sybperl/sybperl-2.0/DBlib
*** Error code 1
make: Fatal error: Command failed for target `test'

Note especially the line above that reports "Bizarre copy...". When stepped through 
with a debugger we get a little more detail:

ok 12
main::(t/dblib.t:88):       and print "ok 13\n"
main::(t/dblib.t:89):       or die "not ok 13\n";
  DB<13> s
ok 13
main::(t/dblib.t:93):   dbmsghandle ("msg_handler"); # different handler to check callbacks
  DB<13> s
Bizarre copy of CODE in entersub at t/dblib.t line 93,  chunk 195.

After which perl returns to the shell prompt. The "msg_handler"
funtion "looks" ok???:

sub msg_handler
    my ($db, $message, $state, $severity, $text, $server, $procedure, $line)
        = @_;

    if ($severity > 0)
        ($message == 102)
            and print("ok 15\n")
                or print("not ok 15\n");

This is installing sybperl-2.0 onto perl 5.02 under solaris 5.4 on a

We have checked the FAQ and tried stepping into the error with a
debugger but are still clueless. Can anybody suggest what are we


Any opinion presented here is my own and does not reflect the policy
of my employer, NASA, or the Ames Research Center.

Roger Smith     
Sterling Software at
NASA-Ames Research Center
If change is -- inevitable -- predictable -- beneficial -- 
doesn't logic demand that you be a part of it?
One man cannot summon the future. But one man can change the present!
    -- Kirk and the Alternate Spock, "Mirror, Mirror," stardate unknown