From owner-freebsd-current Sun Sep 20 20:21:11 1998 Return-Path: Received: (from majordom@localhost) by hub.freebsd.org (8.8.8/8.8.8) id UAA10995 for freebsd-current-outgoing; Sun, 20 Sep 1998 20:21:11 -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 UAA10986 for ; Sun, 20 Sep 1998 20:21:07 -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 MAA06071; Mon, 21 Sep 1998 12:20:21 +0900 (JST) Date: Mon, 21 Sep 1998 12:20:21 +0900 (JST) Message-Id: <199809210320.MAA06071@access.sfc.wide.ad.jp> To: freebsd-current@FreeBSD.ORG Cc: max@wide.ad.jp Subject: problem with perl5? From: Masafumi =?iso-2022-jp?B?TkFLQU5FLxskQkNmOiwybUo4GyhC?= 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 Hi, 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"; ---------------------------------------------------------------------- Thanks, Max To Unsubscribe: send mail to majordomo@FreeBSD.org with "unsubscribe freebsd-current" in the body of the message