sybperl-l Archive

From: mpeppler at itf1 dot itf dot ch (Michael Peppler)
Subject: Re: 2.04 t/cursor failure
Date: Mar 15 1996 3:44PM

Return-Path: 
Received: from trln.lib.unc.edu by itf.ch (4.1/SMI-4.1)
	id AA04286; Fri, 15 Mar 96 17:07:16 +0100
Errors-To: owner-sybperl-l@trln.lib.unc.edu
Received: from trln by chsun.eunet.ch (8.6.10/1.34)
	id QAA29958; Fri, 15 Mar 1996 16:50:59 +0100
X-Listname: SybPerl Discussion List 
Warnings-To: <>
Errors-To: owner-sybperl-l@trln.lib.unc.edu
Sender: owner-sybperl-l@trln.lib.unc.edu
Received: from chsun.eunet.ch by trln (MX V4.2 VAX) with SMTP; Fri, 15 Mar 1996
          10:46:49 EST
Received: from itf1.UUCP by chsun.eunet.ch (8.6.10/1.34) id QAA29628; Fri, 15
          Mar 1996 16:47:47 +0100
Received: from kiruna.itf.ch by itf.ch (4.1/SMI-4.1) id AA04065; Fri, 15 Mar 96
          16:45:02 +0100
Received: by kiruna.itf.ch (SMI-8.6/SMI-SVR4) id QAA00900; Fri, 15 Mar 1996
          16:44:59 +0100
Date: Fri, 15 Mar 1996 16:44:59 +0100
From: mpeppler@itf1.itf.ch (Michael Peppler)
Reply-To: SYBPERL-L@trln.lib.unc.edu
Message-Id: <199603151544.QAA00900@kiruna.itf.ch>
To: bob_mason@gar.com, gord@ymx.sita.int
Subject: Re: 2.04 t/cursor failure
Cc: sybperl-l@trln.lib.unc.edu
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="1eb3_2d25-11b2_69d0-578e_699e"
X-Filter: mailagent [version 3.0 PL44] for mpeppler@itf.ch
Status: RO
X-Lines: 74
Content-Length: 2045       

--1eb3_2d25-11b2_69d0-578e_699e
Content-Type: text
Content-MD5: Kriny5WjcByvCIY4a9G1ZQ==
X-Sun-Content-Length: 1061

> From: Gord Palameta  

> 
> bob mason writes:
>  >      I have installed sybperl 2.04, after installing perl 5.002. When I run 
>  >      'make test', the following occurs:
>  >      
>  >      t/cursor............
>  >      Open Client Message:
>  >      Message number: LAYER = (1) ORIGIN = (1) SEVERITY = (1) NUMBER = (163)
>  >      Message String: ct_results(): user api layer: external error: This 
>  >      routine cannot be called until all fetchable results have been 
>  >      completely processed.
>  >      ok
>  >      
>  >      Any one know why this happens, and/or whether it can be ignored?
>  >      version info:
>  >        SQL Server/10.0.2.3/P/Sun_svr4/OS 5.2/EBF 5544 rollup
>  >      SunOS  5.4 Generic_101945-23 sun4m sparc
> 
> 
> I got precisely the same message, just now, when I tried to install
> 2.04.  I looked through all the old SYBPERL messages and found your
> post.  Did you ever get any replies by e-mail?

Found it!

There is a slight logic problem in the code. The patch below fixes it...

Michael

--1eb3_2d25-11b2_69d0-578e_699e
Content-Type: application/octet-stream
Content-Description: cursor.t.patch
Content-MD5: q1Rjyp8h5ZL61z1z0qcCJQ==
X-Sun-Content-Length: 659

*** Sybase-dist/sybperl-2.04/CTlib/t/cursor.t	Thu Feb 29 16:03:18 1996
--- Sybase/CTlib/t/cursor.t	Fri Mar 15 16:40:34 1996
***************
*** 1,6 ****
  #!./perl
  
! #	@(#)cursor.t	1.2	2/29/96
  
  ######################### We start with some black magic to print on failure.
  
--- 1,6 ----
  #!./perl
  
! #	%W%	%G%
  
  ######################### We start with some black magic to print on failure.
  
***************
*** 117,122 ****
--- 117,125 ----
      %dat2 = $d2->ct_fetch(CS_TRUE) if($last);
      $last = 0 unless(%dat2);
  }
+ if($last) {
+     while($d2->ct_fetch()) {}
+ }
  print "ok 18\n";
  
  while($d->ct_results($restype)==CS_SUCCEED){}
--1eb3_2d25-11b2_69d0-578e_699e--