Perl / perl5

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

Bizarre copy of ARRAY in leave .. under debug #58

Closed p5pRT closed 21 years ago

p5pRT commented 25 years ago

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

Searchable as RT860$

p5pRT commented 25 years ago

From mjtg@cus.cam.ac.uk

  $a = \ do { @​a }

produces

  Bizarre copy of ARRAY in leave at ...

but only when run under the debugger. It fails in both 5.004_05 and 5.005_03\, but not under 5.005_57.

Mike Guy

% perl -V Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration​:   Platform​:   osname=sunos\, osvers=4.1.3\, archname=sun4-sunos   uname=''   hint=previous\, useposix=true\, d_sigaction=define   usethreads=undef useperlio=undef d_sfio=undef   Compiler​:   cc='gcc'\, optimize='-O'\, gccversion=2.7.2.3   cppflags='-I/usr/local/include -DREG_INFTY=22790'   ccflags ='-I/usr/local/include -DREG_INFTY=22790'   stdchar='unsigned char'\, d_stdstdio=define\, usevfork=true   intsize=4\, longsize=4\, ptrsize=4\, doublesize=8   d_longlong=define\, longlongsize=8\, d_longdbl=define\, longdblsize=8   alignbytes=8\, usemymalloc=y\, prototype=define   Linker and Libraries​:   ld='ld'\, ldflags =' -L/usr/local/lib'   libpth=/usr/local/lib /lib /usr/lib /usr/ucblib   libs=-ldbm -ldl -lm -lc -lposix   libc=/lib/libc.so.1.8\, so=so\, useshrplib=false\, libperl=libperl.a   Dynamic Linking​:   dlsrc=dl_dlopen.xs\, dlext=so\, d_dlsymun=undef\, ccdlflags=' '   cccdlflags='-fpic'\, lddlflags='-assert nodefinitions -L/usr/local/lib'

Characteristics of this binary (from libperl)​:   Built under sunos   Compiled at Mar 30 1999 14​:45​:10   @​INC​:   /home/mjtg/perl5.005_03/lib   /home/mjtg/perl5.005_03/lib   /home/mjtg/perl5.005_03/lib   .