Date: Mon, 21 Sep 1998 07:59:17 +0200 From: Mark Murray <mark@grondar.za> To: Masafumi =?iso-2022-jp?B?TkFLQU5FLxskQkNmOiwybUo4GyhC?= <max@wide.ad.jp> Cc: freebsd-current@FreeBSD.ORG Subject: Re: problem with perl5? Message-ID: <199809210559.HAA07941@gratis.grondar.za> In-Reply-To: Your message of " Mon, 21 Sep 1998 12:20:21 %2B0900." <199809210320.MAA06071@access.sfc.wide.ad.jp> References: <199809210320.MAA06071@access.sfc.wide.ad.jp>
next in thread | previous in thread | raw e-mail | index | archive | help
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
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?199809210559.HAA07941>