First Perl_croak() fails under -d

[p5pRT]

Migrated from rt.perl.org#1223 (status was 'resolved')

Searchable as RT1223$

[p5pRT]

From hansm@icgned.icgroup.nl

The first time Perl tries to croak while running under -d, the message
comes out as "Assertion failed​: file "pp_ctl.c", line 2430"​:

main​::(-e​:1)​: 0
  DB<1> $a = <
  Assertion failed​: file "pp_ctl.c", line 2430, <IN> line 1.

  DB<2> $a = <
  Unterminated <> operator at (eval 5) line 2, <IN> line 2.

Perl_croak() call DB​::dbdie; this in turn calls Carp​::longmess. The first
call to Carp​::longmess loads Carp​::Heavy and this messes up the runlevel.

Workaround​:

  setenv PERL5DB 'BEGIN { require Carp​::Heavy; require "perl5db.pl"; }'

-- HansM

Perl Info

Site configuration information for perl 5.00560:

Configured by hansm at Sun Aug 15 19:49:47 MET DST 1999.

Summary of my perl5 (revision 5.0 version 5 subversion 60) configuration:
  Platform:
    osname=next, osvers=4_2, archname=OPENSTEP-Mach
    uname='bombadil '
    config_args='-des -Dcf_email=hansmu@xs4all.nl -Dprefix=/usr/local -Doptimize=-g -O'
    hint=recommended, useposix=undef, d_sigaction=undef
    usethreads=undef useperlio=undef d_sfio=undef
    use64bits=undef usemultiplicity=undef
  Compiler:
    cc='cc', optimize='-g -O', gccversion=NeXT DevKit-based CPP 4.0
    cppflags='-dynamic -fno-common -DUSE_NEXT_CTYPE -DUSE_PERL_SBRK -arch m68k -DDEBUGGING -I/usr/local/include'
    ccflags ='-dynamic -fno-common -DUSE_NEXT_CTYPE -DUSE_PERL_SBRK -arch m68k -arch i386 -DDEBUGGING -I/usr/local/include'
    stdchar='char', d_stdstdio=define, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
    alignbytes=8, usemymalloc=y, prototype=define
  Linker and Libraries:
    ld='cc', ldflags ='-dynamic -prebind  -arch m68k -arch i386 -L/usr/local/lib'
    libpth=/lib /usr/lib /usr/local/lib
    libs= 
    libc=/NextLibrary/Frameworks/System.framework/System, so=dylib, useshrplib=true, libperl=libperl.5.dylib
  Dynamic Linking:
    dlsrc=dl_next.xs, dlext=bundle, d_dlsymun=undef, ccdlflags=' '
    cccdlflags=' ', lddlflags='-dynamic -bundle -undefined suppress  -arch m68k -arch i386 -L/usr/local/lib'

Locally applied patches:
    


@INC for perl 5.00560:
    lib
    /usr/local/lib/perl5/5.00560/OPENSTEP-Mach
    /usr/local/lib/perl5/5.00560
    /usr/local/lib/site_perl/5.00560/OPENSTEP-Mach
    /usr/local/lib/site_perl
    .


Environment for perl 5.00560:
    DYLD_LIBRARY_PATH=/Users/hansm/src/perl/build/perl-5.006/perl5.005_60
    HOME=/Users/hansm
    LANG (unset)
    LANGUAGE (unset)
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
    PATH=/Users/hansm/bin:/usr/local/bin:/usr/games:/usr/ucb:/bin:/usr/bin:/usr/etc:/Users/hansm/bin/cookies:/LocalApps/Opener.app:.
    PERL5LIB=lib
    PERL_BADLANG (unset)
    SHELL=/usr/bin/zsh