From owner-freebsd-current Mon Sep 21 01:25:14 1998 Return-Path: Received: (from majordom@localhost) by hub.freebsd.org (8.8.8/8.8.8) id BAA25944 for freebsd-current-outgoing; Mon, 21 Sep 1998 01:25:14 -0700 (PDT) (envelope-from owner-freebsd-current@FreeBSD.ORG) Received: from access.sfc.wide.ad.jp (bourbon.sfc.wide.ad.jp [203.178.141.171]) by hub.freebsd.org (8.8.8/8.8.8) with ESMTP id BAA25855 for ; Mon, 21 Sep 1998 01:24:50 -0700 (PDT) (envelope-from max@bourbon.sfc.wide.ad.jp) Received: (from max@localhost) by access.sfc.wide.ad.jp (8.9.1/3.7W-08/28/98) id RAA03707; Mon, 21 Sep 1998 17:22:54 +0900 (JST) Date: Mon, 21 Sep 1998 17:22:54 +0900 (JST) Message-Id: <199809210822.RAA03707@access.sfc.wide.ad.jp> To: mark@grondar.za Cc: max@wide.ad.jp, freebsd-current@FreeBSD.ORG Cc: max@wide.ad.jp Subject: Re: problem with perl5? From: Masafumi =?iso-2022-jp?B?TkFLQU5FLxskQkNmOiwybUo4GyhC?= In-Reply-To: Your message of "Mon, 21 Sep 1998 07:59:17 +0200" <199809210559.HAA07941@gratis.grondar.za> References: <199809210559.HAA07941@gratis.grondar.za> X-Mailer: Mew version 1.93 on Emacs 20.3 / Mule 4.0 (HANANOEN) X-PGP-Fingerprint: 00 D8 2C CA C7 75 D4 40 5C 34 39 BA A5 46 C0 CC Mime-Version: 1.0 Content-Type: Text/Plain; charset=us-ascii Content-Transfer-Encoding: 7bit Sender: owner-freebsd-current@FreeBSD.ORG Precedence: bulk X-Loop: FreeBSD.ORG Mark, Thanks for your response. Sorry, I forgot to include the output from perl -d. And it is as follows: ---------------------------------------------------------------------- Loading DB routines from perl5db.pl version 1.0401 Emacs support available. Enter h or `h h' for help. Signal SEGV at /usr/libdata/perl/5.00502/mach/DB_File.pm line 216 eval {...} called at /usr/libdata/perl/5.00502/mach/DB_File.pm line 214 require DB_File.pm called at (eval 1) line 2 eval 'require DB_File ;' called at /usr/libdata/perl/5.00502/AnyDBM_File.pm line 8 require AnyDBM_File.pm called at a line 2 main::BEGIN() called at /usr/libdata/perl/5.00502/mach/Fcntl.pm line 0 eval {...} called at /usr/libdata/perl/5.00502/mach/Fcntl.pm line 0 Abort (core dumped) ---------------------------------------------------------------------- The script I included in my previous mail is part of a configure script of some program. One of my boxes had no problem with it, but two others had the same problem. Cheers, Max >>>>> "mm" == Mark Murray writes: mm> Masafumi =?iso-2022-jp?B?TkFLQU5FLxskQkNmOiwybUo4GyhC?= wrote: >> As I updated my box to -current as of about 4 hours ago or so, the >> following code stopped working. Is this problem with perl, or is it >> the code? I truly appreciate help from perl experts. >> >> ---------------------------------------------------------------------- >> BEGIN { @AnyDBM_File::ISA = qw(DB_File NDBM_File SDBM_File) }; >> use AnyDBM_File; >> $db = shift @AnyDBM_File::ISA; >> $db =~ s/_File//; >> print "$db\n"; >> ---------------------------------------------------------------------- mm> On my box, this code printed mm> DB mm> ...and this did not surprise me :-) mm> M mm> -- mm> Mark Murray mm> Join the anti-SPAM movement: http://www.cauce.org To Unsubscribe: send mail to majordomo@FreeBSD.org with "unsubscribe freebsd-current" in the body of the message