[sisyphus] Re: perl-CDB-File

[Alexey Tourbin <at@altlinux.ru>]

[-- Attachment #1.1: Type: text/plain, Size: 559 bytes --]

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, которая раньше была открыта).

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

[-- Attachment #1.2: perl-CDB_File-0.93-alt-fix-build.patch --]
[-- Type: text/plain, Size: 2164 bytes --]

--- 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'} ));
 

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