sybperl-l Archive

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.
1..16
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");
    }
    0;
}

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

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

Thanks,

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

Roger Smith               http://ccf.arc.nasa.gov/~rsmith/rsmith.html
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
+