Skip site navigation (1)Skip section navigation (2)
Date:      Mon, 21 Sep 1998 17:22:54 +0900 (JST)
From:      Masafumi =?iso-2022-jp?B?TkFLQU5FLxskQkNmOiwybUo4GyhC?= <max@wide.ad.jp>
To:        mark@grondar.za
Cc:        max@wide.ad.jp
Subject:   Re: problem with perl5? 
Message-ID:  <199809210822.RAA03707@access.sfc.wide.ad.jp>
In-Reply-To: Your message of "Mon, 21 Sep 1998 07:59:17 %2B0200" <199809210559.HAA07941@gratis.grondar.za>
References:  <199809210559.HAA07941@gratis.grondar.za>

next in thread | previous in thread | raw e-mail | index | archive | help
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 <mark@grondar.za> 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



Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?199809210822.RAA03707>