[devel] Re: [Fwd: Рассказ об установке ALTLinux]

[Mikhail Zabaluev <mhz@alt-linux.org>]

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

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 <cray@iig.ru>
> 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

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