[devel] PDL (was: Sisyphus 20041228 rebuild status)

[Alexey Tourbin <at@altlinux.ru>]

[-- Attachment #1: Type: text/plain, Size: 2689 bytes --]

On Wed, Dec 29, 2004 at 02:44:03PM +0300, QA Team Robot wrote:
> package perl-PDL-1:2.4.1-alt1 looks orphaned [12] (Alexey Tourbin).

С PDL всё странно.  Собираю новую версию, и как всегда: шаг влево, шаг
вправо -- segmentation fault.  Пусть пока будет как есть.  Пока не
прояснится... на доске... :)


----- Forwarded message from Alexey Tourbin <at@altlinux ru> -----

Date: Wed, 29 Dec 2004 20:51:41 +0300
From: Alexey Tourbin <at@altlinux ru>
Subject: PDL-2.4.2 and Test::More 0.53, segfaults
To: Craig DeForest <deforest@boulder.swri edu>
Cc: perldl-porters@jach.hawaii edu
Message-ID: <20041229175141.GH7824@solemn.turbinal org>

On Tue, Dec 28, 2004 at 12:56:13PM -0700, Craig DeForest wrote:
> ... so have at it!  
> 
> If anyone wants to build a Windows binary dist, RPM, or whatever, have at it: 
> we can bind it into the the 2.4.2 release post facto.  Release notes are 
> below.

Hello,

I noticed a few test failures under recent Test::More version from CPAN
(recent perl release has an older and more tolerant version).

In limits_keyspecs.t, undef no longer equals to an empty string:

--- PDL-2.4.2/t/limits_keyspecs.t~	2004-10-27 19:16:28 +0000
+++ PDL-2.4.2/t/limits_keyspecs.t	2004-12-29 16:22:50 +0000
@@ -48,13 +48,13 @@ my @good = (
 
             'x'       => { data => 'x' },
 
-            '&'       => { trans => '' },
+            '&'       => { trans => undef },
 
             undef()   =>  { },
 
-            '<>&'     => { errn   => '',
-      		     errp   => '',
-      		     trans => '' },
+            '<>&'     => { errn   => undef,
+      		     errp   => undef,
+      		     trans => undef },
 
             '=s'  => { errn   => 's',
       	         errp   => 's' },
End of diff

With limits_normalize_dsets.t test failures, I discovered that comparing
PDL objects against non-PDL objects can produce rather strange errors.
Ultimately I managed to crash PDL (and Perl) with a very simple code
snippet:

--- PDL-2.4.2/t/segfault.t~     2004-12-29 20:23:00 +0300
+++ PDL-2.4.2/t/segfault.t      2004-12-29 20:27:10 +0300
@@ -0,0 +1,7 @@
+use PDL;
+use strict;
+
+my $x = pdl(1, 2);
+my $y = bless \my $z, "ASDF";
+print "ok 1\n" if $x != $y;
+
End of diff

Here is what I get with PDL-2.4.1 installed on my system:

$ perl PDL-2.4.2/t/segfault.t
zsh: segmentation fault  perl PDL-2.4.2/t/segfault.t
$

Here is what I get with freshly built PDL-2.4.2:

$ cd PDL-2.4.2
$ perl -Mblib t/segfault.t
zsh: segmentation fault  perl -Mblib t/segfault.t
$

Please verify.

> Cheers,
> Craig

-- 
Alexey Tourbin
ALT Linux Team


----- End forwarded message -----


[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]