Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Freeing deeply nested typeglobs #11437

Open
p5pRT opened this issue Jun 13, 2011 · 5 comments
Open

Freeing deeply nested typeglobs #11437

p5pRT opened this issue Jun 13, 2011 · 5 comments

Comments

@p5pRT
Copy link

p5pRT commented Jun 13, 2011

Migrated from rt.perl.org#92702 (status was 'open')

Searchable as RT92702$

@p5pRT
Copy link
Author

p5pRT commented Jun 13, 2011

From @cpansprout

I know this is mean....

$ perl5.14.0 -le '$x = (\*{"foo"}, delete $​::{foo})[0]; $y = $x; for(1..100000) {*$y = (\\*{"foo"}, delete $​::{foo})[0]; $y = $$$y} undef $x; print "ok"'
Segmentation fault


Flags​:
  category=core
  severity=low


Site configuration information for perl 5.14.0​:

Configured by sprout at Wed May 11 13​:45​:58 PDT 2011.

Summary of my perl5 (revision 5 version 14 subversion 0) configuration​:
  Snapshot of​: eb70bb4
  Platform​:
  osname=darwin, osvers=10.5.0, archname=darwin-thread-multi-2level
  uname='darwin pint.local 10.5.0 darwin kernel version 10.5.0​: fri nov 5 23​:20​:39 pdt 2010; root​:xnu-1504.9.17~1release_i386 i386 '
  config_args='-Dusedevel -de -Duseithreads -Doptimize=-g'
  hint=recommended, useposix=true, d_sigaction=define
  useithreads=define, usemultiplicity=define
  useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
  use64bitint=undef, use64bitall=undef, uselongdouble=undef
  usemymalloc=n, bincompat5005=undef
  Compiler​:
  cc='cc', ccflags ='-fno-common -DPERL_DARWIN -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include',
  optimize='-g',
  cppflags='-fno-common -DPERL_DARWIN -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include'
  ccversion='', gccversion='4.2.1 (Apple Inc. build 5664)', gccosandvers=''
  intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
  d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
  ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
  alignbytes=8, prototype=define
  Linker and Libraries​:
  ld='env MACOSX_DEPLOYMENT_TARGET=10.3 cc', ldflags =' -fstack-protector -L/usr/local/lib'
  libpth=/usr/local/lib /usr/lib
  libs=-ldbm -ldl -lm -lutil -lc
  perllibs=-ldl -lm -lutil -lc
  libc=/usr/lib/libc.dylib, so=dylib, useshrplib=false, libperl=libperl.a
  gnulibc_version=''
  Dynamic Linking​:
  dlsrc=dl_dlopen.xs, dlext=bundle, d_dlsymun=undef, ccdlflags=' '
  cccdlflags=' ', lddlflags=' -bundle -undefined dynamic_lookup -L/usr/local/lib -fstack-protector'

Locally applied patches​:
  RC3


@​INC for perl 5.14.0​:
  /usr/local/lib/perl5/site_perl/5.14.0/darwin-thread-multi-2level
  /usr/local/lib/perl5/site_perl/5.14.0
  /usr/local/lib/perl5/5.14.0/darwin-thread-multi-2level
  /usr/local/lib/perl5/5.14.0
  /usr/local/lib/perl5/site_perl
  .


Environment for perl 5.14.0​:
  DYLD_LIBRARY_PATH (unset)
  HOME=/Users/sprout
  LANG=en_US.UTF-8
  LANGUAGE (unset)
  LD_LIBRARY_PATH (unset)
  LOGDIR (unset)
  PATH=/usr/bin​:/bin​:/usr/sbin​:/sbin​:/usr/local/bin​:/usr/X11/bin​:/usr/local/bin
  PERL_BADLANG (unset)
  SHELL=/bin/bash

@p5pRT
Copy link
Author

p5pRT commented Jun 13, 2011

From @iabyn

On Sun, Jun 12, 2011 at 05​:36​:30PM -0700, Father Chrysostomos wrote​:

I know this is mean....

$ perl5.14.0 -le '$x = (\*{"foo"}, delete $​::{foo})[0]; $y = $x; for(1..100000) {*$y = (\\*{"foo"}, delete $​::{foo})[0]; $y = $$$y} undef $x; print "ok"'
Segmentation fault

As I said in <20110519140037.GP2741@​iabyn.com>,

I intend to stop here, as we're unlikely to have deeply-nested structures
of other stuff like GVs.

It this really worth the effort to fix?

--
Never work with children, animals, or actors.

@p5pRT
Copy link
Author

p5pRT commented Jun 13, 2011

The RT System itself - Status changed from 'new' to 'open'

@p5pRT
Copy link
Author

p5pRT commented Jun 13, 2011

From @cpansprout

On Mon Jun 13 01​:19​:40 2011, davem wrote​:

On Sun, Jun 12, 2011 at 05​:36​:30PM -0700, Father Chrysostomos wrote​:

I know this is mean....

$ perl5.14.0 -le '$x = (\*{"foo"}, delete $​::{foo})[0]; $y = $x;
for(1..100000) {*$y = (\\*{"foo"}, delete $​::{foo})[0]; $y = $$$y}
undef $x; print "ok"'
Segmentation fault

As I said in <20110519140037.GP2741@​iabyn.com>,

I intend to stop here, as we're unlikely to have deeply-nested
structures
of other stuff like GVs.

It this really worth the effort to fix?

I doubt it, but leave it open in case someone else wants to tackle it
some day.

This report is just academic, anyway. (I’ve found a lot of bugs recently
by reading code.)

@p5pRT
Copy link
Author

p5pRT commented Jun 13, 2011

From [Unknown Contact. See original ticket]

On Mon Jun 13 01​:19​:40 2011, davem wrote​:

On Sun, Jun 12, 2011 at 05​:36​:30PM -0700, Father Chrysostomos wrote​:

I know this is mean....

$ perl5.14.0 -le '$x = (\*{"foo"}, delete $​::{foo})[0]; $y = $x;
for(1..100000) {*$y = (\\*{"foo"}, delete $​::{foo})[0]; $y = $$$y}
undef $x; print "ok"'
Segmentation fault

As I said in <20110519140037.GP2741@​iabyn.com>,

I intend to stop here, as we're unlikely to have deeply-nested
structures
of other stuff like GVs.

It this really worth the effort to fix?

I doubt it, but leave it open in case someone else wants to tackle it
some day.

This report is just academic, anyway. (I’ve found a lot of bugs recently
by reading code.)

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Projects
None yet
Development

No branches or pull requests

2 participants