From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <at@altlinux.ru>
Date: Fri, 19 Sep 2003 19:06:36 +0400
From: Alexey Tourbin <at@altlinux.ru>
To: Sisyphus <sisyphus@altlinux.ru>
Message-ID: <20030919150636.GY1720@julia.office.altlinux.ru>
Mail-Followup-To: Sisyphus <sisyphus@altlinux.ru>
References: <20030919140944.GJ10583@localhost.localdomain>
Mime-Version: 1.0
Content-Type: multipart/signed; micalg=pgp-sha1;
	protocol="application/pgp-signature"; boundary="cJfXB9mphngkt5vq"
Content-Disposition: inline
In-Reply-To: <20030919140944.GJ10583@localhost.localdomain>
Subject: [sisyphus] Re: perl-CDB-File
X-BeenThere: sisyphus@altlinux.ru
X-Mailman-Version: 2.1.2
Precedence: list
Reply-To: sisyphus@altlinux.ru
List-Id: <sisyphus.altlinux.ru>
List-Unsubscribe: <http://altlinux.ru/mailman/listinfo/sisyphus>,
	<mailto:sisyphus-request@altlinux.ru?subject=unsubscribe>
List-Archive: </pipermail/sisyphus>
List-Post: <mailto:sisyphus@altlinux.ru>
List-Help: <mailto:sisyphus-request@altlinux.ru?subject=help>
List-Subscribe: <http://altlinux.ru/mailman/listinfo/sisyphus>,
	<mailto:sisyphus-request@altlinux.ru?subject=subscribe>
X-List-Received-Date: Fri, 19 Sep 2003 15:06:38 -0000
Archived-At: <http://lore.altlinux.org/sisyphus/20030919150636.GY1720@julia.office.altlinux.ru/>
List-Archive: <http://lore.altlinux.org/sisyphus/>


--cJfXB9mphngkt5vq
Content-Type: multipart/mixed; boundary="3MRlEjvj2/M31Nfs"
Content-Disposition: inline
Content-Transfer-Encoding: 8bit


--3MRlEjvj2/M31Nfs
Content-Type: text/plain; charset=koi8-r
Content-Disposition: inline
Content-Transfer-Encoding: 8bit

On Fri, Sep 19, 2003 at 06:09:44PM +0400, Denis Smirnov wrote:
> >> Я правильно понял, что inn совсем поломали? Или просто забыли в
> >> репозиторий положить perl-CDB-File ? :)
> > Не смогли починить perl-CDB_File.
> 
> А что с ним случилось? За что его убрали из репозитория?

Он не пересобирается, и я не смог его починить.  Он завязан на закрытую
часть libperl.so API (-DPERL_CORE, которая раньше была открыта).

Если есть желание починить -- пробуйте.  Вот грубая частичная починка,
но некоторые тесты всё равно не проходит.  Может также попинать автора.

--3MRlEjvj2/M31Nfs
Content-Type: text/plain; charset=us-ascii
Content-Disposition: attachment;
	filename="perl-CDB_File-0.93-alt-fix-build.patch"

--- CDB_File-0.93/CDB_File.xs	2003-04-03 07:09:41 +0000
+++ CDB_File-0.93.my/CDB_File.xs	2003-09-05 10:54:24 +0000
@@ -458,7 +458,7 @@ cdb_FETCH(this, k)
 
 	CODE:
 	if (!SvOK(k)) {
-		if (ckWARN(WARN_UNINITIALIZED)) report_uninit();
+		if (ckWARN(WARN_UNINITIALIZED)) ;
 		XSRETURN_UNDEF;
 	}
 	kp = SvPV(k, klen);
@@ -503,7 +503,7 @@ cdb_multi_get(this, k)
 
 	CODE:
 	if (!SvOK(k)) {
-		if (ckWARN(WARN_UNINITIALIZED)) report_uninit();
+		if (ckWARN(WARN_UNINITIALIZED)) ;
 		XSRETURN_UNDEF;
 	}
 	cdb_findstart(this);
@@ -536,7 +536,7 @@ cdb_EXISTS(this, k)
 
 	CODE:
 	if (!SvOK(k)) {
-		if (ckWARN(WARN_UNINITIALIZED)) report_uninit();
+		if (ckWARN(WARN_UNINITIALIZED)) ;
 		XSRETURN_NO;
 	}
 	kp = SvPV(k, klen);
@@ -598,7 +598,7 @@ cdb_NEXTKEY(this, k)
 
 	CODE:
 	if (!SvOK(k)) {
-		if (ckWARN(WARN_UNINITIALIZED)) report_uninit();
+		if (ckWARN(WARN_UNINITIALIZED)) ;
 		XSRETURN_UNDEF;
         }
         /* Sometimes NEXTKEY gets called before FIRSTKEY if the hash
--- CDB_File-0.93/t/01main.t	2003-04-02 14:59:50 +0000
+++ CDB_File-0.93.my/t/01main.t	2003-09-05 10:56:05 +0000
@@ -2,7 +2,7 @@ use strict;
 use Test;
 plan tests => 112;
 $|++;
-eval "use CDB_File";
+use CDB_File;
 ok(!$@);
 
 my %h;
@@ -18,7 +18,7 @@ untie %h;
 unlink 'bad.cdb';
 
 my %a = qw(one Hello two Goodbye);
-eval { CDB_File::create(\%a, 'good.cdb', 'good.tmp') || die "Failed to create cdb: $!" };
+CDB_File::create(%a, 'good.cdb', 'good.tmp') || die "Failed to create cdb: $!" ;
 ok("$@", '', "Create cdb");
 
 # Test that good file works.
@@ -72,7 +72,7 @@ unlink 'good.cdb';
 
 # Test empty file.
 %a = ();
-eval { CDB_File::create(\%a, 'empty.cdb', 'empty.tmp') || die "CDB create failed" };
+eval { CDB_File::create(%a, 'empty.cdb', 'empty.tmp') || die "CDB create failed" };
 ok(!$@, 1, "No errors creating cdb");
 
 tie(%h, "CDB_File", 'empty.cdb') and ok(1, 1, "Tie new empty cdb");
@@ -184,7 +184,7 @@ unlink 'repeat.cdb';
 
 # Regression test - dumps core in 0.6.
 %a = ('one', '');
-ok(CDB_File::create(\%a, 'good.cdb', 'good.tmp'));
+ok(CDB_File::create(%a, 'good.cdb', 'good.tmp'));
 ok(tie(%h, "CDB_File", 'good.cdb'));
 ok(!( $h{'zero'} or $h{'one'} ));
 

--3MRlEjvj2/M31Nfs--

--cJfXB9mphngkt5vq
Content-Type: application/pgp-signature
Content-Disposition: inline

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.3 (GNU/Linux)

iD8DBQE/axt8fBKgtDjnu0YRAsFHAKCTsIubfyaR3uswR+O+478jIN+ojQCffQbT
wMCZUorHyNjLTYtTkc61p6Y=
=hDVy
-----END PGP SIGNATURE-----

--cJfXB9mphngkt5vq--