From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <av1046@comtv.ru>
Date: Sat, 5 Jan 2002 01:55:00 +0300
From: Mikhail Zabaluev <mhz@alt-linux.org>
To: devel@altlinux.ru
Cc: cray@iig.ru
Message-ID: <20020104225500.GB2044@localhost.localdomain>
Mail-Followup-To: Mikhail Zabaluev <mhz@alt-linux.org>,
	devel@altlinux.ru, cray@iig.ru
References: <3C360933.3DEA49A@altlinux.ru>
Mime-Version: 1.0
Content-Type: multipart/signed; micalg=pgp-sha1;
	protocol="application/pgp-signature"; boundary="H+4ONPRPur6+Ovig"
Content-Disposition: inline
In-Reply-To: <3C360933.3DEA49A@altlinux.ru>
User-Agent: Mutt/1.3.24i
Subject: [devel] Re: [Fwd: =?koi8-r?B?8sHT08vB2iDPwiDV09TB?=
 =?koi8-r?B?zs/Xy8U=?= ALTLinux]
Sender: devel-admin@altlinux.ru
Errors-To: devel-admin@altlinux.ru
X-BeenThere: devel@altlinux.ru
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: devel@altlinux.ru
List-Help: <mailto:devel-request@altlinux.ru?subject=help>
List-Post: <mailto:devel@altlinux.ru>
List-Subscribe: <http://altlinux.ru/mailman/listinfo/devel>,
	<mailto:devel-request@altlinux.ru?subject=subscribe>
List-Id: <devel.altlinux.ru>
List-Unsubscribe: <http://altlinux.ru/mailman/listinfo/devel>,
	<mailto:devel-request@altlinux.ru?subject=unsubscribe>
List-Archive: <http://altlinux.ru/pipermail/devel/>
Archived-At: <http://lore.altlinux.org/devel/20020104225500.GB2044@localhost.localdomain/>
List-Archive: <http://lore.altlinux.org/devel/>
List-Post: <mailto:devel@altlinux.org>

--H+4ONPRPur6+Ovig
Content-Type: text/plain; charset=koi8-r
Content-Disposition: inline
Content-Transfer-Encoding: 8bit

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

--H+4ONPRPur6+Ovig
Content-Type: application/pgp-signature
Content-Disposition: inline

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.6 (GNU/Linux)
Comment: For info see http://www.gnupg.org

iD8DBQE8NjLETKqCuNPJlLgRAnWUAKCKmZMtz+NmcggLVXShMoq4GX3UWACePgTU
7x48M8UAfuxK3FnOO7dzNxw=
=c+5d
-----END PGP SIGNATURE-----

--H+4ONPRPur6+Ovig--