[sisyphus] Re: perl-CDB-File
Alexey Tourbin
=?iso-8859-1?q?at_=CE=C1_altlinux=2Eru?=
Пт Сен 19 19:06:36 MSD 2003
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, которая раньше была открыта).
Если есть желание починить -- пробуйте. Вот грубая частичная починка,
но некоторые тесты всё равно не проходит. Может также попинать автора.
----------- следующая часть -----------
--- 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'} ));
----------- следующая часть -----------
Было удалено вложение не в текстовом формате...
Имя : =?iso-8859-1?q?=CF=D4=D3=D5=D4=D3=D4=D7=D5=C5=D4?=
Тип : application/pgp-signature
Размер : 189 байтов
Описание: =?iso-8859-1?q?=CF=D4=D3=D5=D4=D3=D4=D7=D5=C5=D4?=
Url : <http://lists.altlinux.org/pipermail/sisyphus/attachments/20030919/38e2f346/attachment-0010.bin>
Подробная информация о списке рассылки Sisyphus