From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Date: Sat, 5 Jan 2002 14:17:57 +0300 From: Mikhail Zabaluev To: devel@altlinux.ru Cc: cray@iig.ru Message-ID: <20020105111757.GB32608@localhost.localdomain> Mail-Followup-To: Mikhail Zabaluev , devel@altlinux.ru, cray@iig.ru Mime-Version: 1.0 Content-Type: multipart/signed; micalg=pgp-sha1; protocol="application/pgp-signature"; boundary="cvVnyQ+4j833TQvp" Content-Disposition: inline User-Agent: Mutt/1.3.25i Subject: [devel] perl bug [gellyfish@gellyfish.com: Re: [ID 20020104.007] coredump on dbmclose] 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: List-Post: List-Subscribe: , List-Id: List-Unsubscribe: , List-Archive: Archived-At: List-Archive: List-Post: --cvVnyQ+4j833TQvp Content-Type: multipart/mixed; boundary="mP3DRpeJDSE+ciuQ" Content-Disposition: inline Content-Transfer-Encoding: 8bit --mP3DRpeJDSE+ciuQ Content-Type: text/plain; charset=koi8-r Content-Disposition: inline Content-Transfer-Encoding: 8bit Вот и ответ на perlbug report. --mP3DRpeJDSE+ciuQ Content-Type: message/rfc822 Content-Disposition: inline Return-Path: Delivered-To: mhz@localhost.mikhail.zabaluev.name Received: from localhost (localhost.localdomain [127.0.0.1]) by mhz.mikhail.zabaluev.name (Postfix) with ESMTP id 65772400 for ; Sat, 5 Jan 2002 13:56:38 +0300 (MSK) Received: from mail.comtv.ru [217.10.32.4] by localhost with POP3 (fetchmail-5.8.11) for mhz@localhost (single-drop); Sat, 05 Jan 2002 13:56:38 +0300 (MSK) Received: from mailhost1.dircon.co.uk ([194.112.32.65] verified) by comtv.ru (CommuniGate Pro SMTP 3.4.7) with ESMTP id 1723255 for av1046@comtv.ru; Sat, 05 Jan 2002 13:29:56 +0300 Received: from petunia.gellyfish.com (petunia.gellyfish.com [194.112.42.228]) by mailhost1.dircon.co.uk (Postfix) with ESMTP id 2DAC25788F; Sat, 5 Jan 2002 10:29:53 +0000 (GMT) Received: from orpheus.gellyfish.com (IDENT:root@host213-1-175-111.btinternet.com [213.1.175.111]) by petunia.gellyfish.com (8.11.3/8.11.3) with ESMTP id g05ATnO29655; Sat, 5 Jan 2002 10:29:49 GMT (envelope-from gellyfish@gellyfish.com) Received: from localhost (gellyfish@localhost) by orpheus.gellyfish.com (8.11.6/8.11.0) with ESMTP id g05A3aE09767; Sat, 5 Jan 2002 10:03:37 GMT Date: Sat, 5 Jan 2002 10:03:34 +0000 (GMT) From: Jonathan Stowe To: Mikhail Zabaluev Cc: Subject: Re: [ID 20020104.007] coredump on dbmclose In-Reply-To: <20020104224859.479F99C9@localhost.localdomain> Message-ID: MIME-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII On Sat, 5 Jan 2002, Mikhail Zabaluev wrote: > perl crashes on the following program: > > > #!/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(); > You can stop the core by changing the assignment of the *reference* to the tied hash to : %{$self->{'LT'}} = %LT; I am just peering at Perl_pp_untie to discover why it coredumps when it should warn that you are untying an untied thing :) /J\ -- Jonathan Stowe | | This space for rent | --mP3DRpeJDSE+ciuQ-- --cvVnyQ+4j833TQvp 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 iD8DBQE8NuDlTKqCuNPJlLgRApbPAJ9flxepuzCy8Dzc2kxz4jEr2BT1hQCfWHJI YaGhfKltYH9lgrOuzGCSPMI= =tg86 -----END PGP SIGNATURE----- --cvVnyQ+4j833TQvp--