From owner-freebsd-current Sun Sep 20 23:00:38 1998 Return-Path: Received: (from majordom@localhost) by hub.freebsd.org (8.8.8/8.8.8) id XAA06489 for freebsd-current-outgoing; Sun, 20 Sep 1998 23:00:38 -0700 (PDT) (envelope-from owner-freebsd-current@FreeBSD.ORG) Received: from gratis.grondar.za (gratis.grondar.za [196.7.18.65]) by hub.freebsd.org (8.8.8/8.8.8) with ESMTP id XAA06479 for ; Sun, 20 Sep 1998 23:00:25 -0700 (PDT) (envelope-from mark@grondar.za) Received: from grondar.za (IDENT:d2pAQBliusrh4s351BXvBDYFsCMM95iV@localhost [127.0.0.1]) by gratis.grondar.za (8.9.1/8.9.1) with ESMTP id HAA07941; Mon, 21 Sep 1998 07:59:18 +0200 (SAST) (envelope-from mark@grondar.za) Message-Id: <199809210559.HAA07941@gratis.grondar.za> To: Masafumi =?iso-2022-jp?B?TkFLQU5FLxskQkNmOiwybUo4GyhC?= cc: freebsd-current@FreeBSD.ORG Subject: Re: problem with perl5? In-Reply-To: Your message of " Mon, 21 Sep 1998 12:20:21 +0900." <199809210320.MAA06071@access.sfc.wide.ad.jp> References: <199809210320.MAA06071@access.sfc.wide.ad.jp> Date: Mon, 21 Sep 1998 07:59:17 +0200 From: Mark Murray Sender: owner-freebsd-current@FreeBSD.ORG Precedence: bulk X-Loop: FreeBSD.ORG 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"; > ---------------------------------------------------------------------- On my box, this code printed DB ...and this did not surprise me :-) M -- Mark Murray 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