Hello Aleksey, On Fri, Jan 04, 2002 at 10:57:39PM +0300, Aleksey Novodvorsky wrote: > > Просьба содержательные комментарии отправлять автору нижеследующейго > письма, а не только сюда. > > Rgrds, Алексей > Date: Fri, 4 Jan 2002 23:40:03 +0300 > From: Andrey Orlov > To: aen@altlinux.ru > Subject: Рассказ об установке ALTLinux ... > ========= > Perl > ========= > Perl, тоже падал. > > Мы используем объектные возможности Perl в конструкторе объекта открываем > DBM (dbmopen) и сохраняем ссылку на хеш в атрибуте объекта. В деструкторе > мы честно закрываем базу (dbmclose), в этот момент Perl падает. Если базу > явно не закрывать, возникает вопрос о том, закроет ли Perl ее коректно, что > очень важно для CGI скриптов. > > Пример скрипта: > > == cut == > #!/usr/bin/perl > package Authen; > > sub new { > my $proto = shift; > my $class = ref($proto) || $proto; > my $self = {}; > bless($self,$class); > my %LT; > dbmopen(%LT, "test_dbmopen", 0666) || die "Can't open test_dbm.db because of > $!\n"; > $self->{'LT'} = \%LT; > return $self; > } > > sub DESTROY { > my $self = shift; > dbmclose(%{$self->{'LT'}}); > return 1; > } > > package main; > > $test = Authen->new(); > == cut == > > Мы пересобирали Perl с поддержкой разных DB (DB3, DB2, GDB), ошибка > проявлялась везде.. confirmed, отправил perlbug, ждем-с... -- Stay tuned, MhZ JID: mookid@jabber.org ___________ "I've finally learned what `upward compatible' means. It means we get to keep all our old mistakes." -- Dennie van Tassel