Perl / perl5

🐪 The Perl programming language
https://dev.perl.org/perl5/
Other
1.88k stars 531 forks source link

First Perl_croak() fails under -d #388

Closed p5pRT closed 20 years ago

p5pRT commented 24 years ago

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

Searchable as RT1223$

p5pRT commented 24 years ago

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\, \ line 1.

  DB\<2> $a = \<   Unterminated \<> operator at (eval 5) line 2\, \ 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 ```