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

eval 'BEGIN { goto ... }' #12240

Closed
p5pRT opened this issue Jul 1, 2012 · 6 comments
Closed

eval 'BEGIN { goto ... }' #12240

p5pRT opened this issue Jul 1, 2012 · 6 comments

Comments

@p5pRT
Copy link

p5pRT commented Jul 1, 2012

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

Searchable as RT113934$

@p5pRT
Copy link
Author

p5pRT commented Jul 1, 2012

From @cpansprout

$ ./perl -Ilib -e 'eval "BEGIN {goto end}"; end​:'
Assertion failed​: (SvTYPE(av) == SVt_PVAV), function Perl_av_len, file av.c, line 758.
Abort trap


Flags​:
  category=core
  severity=low


Site configuration information for perl 5.17.2​:

Configured by sprout at Mon Jun 25 13​:28​:03 PDT 2012.

Summary of my perl5 (revision 5 version 17 subversion 2) configuration​:
  Snapshot of​: 49f4c4e
  Platform​:
  osname=darwin, osvers=10.5.0, archname=darwin-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='-de -DDEBUGGING -Dusedevel'
  hint=recommended, useposix=true, d_sigaction=define
  useithreads=undef, usemultiplicity=undef
  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 -DDEBUGGING -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include',
  optimize='-O3 -g',
  cppflags='-fno-common -DPERL_DARWIN -DDEBUGGING -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=, 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​:
 


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


Environment for perl 5.17.2​:
  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 Sep 21, 2016

From @dcollinsn

Fixed between v5.19.6 and v5.19.7. Will also add a test.

ebdc880 is the first new commit
commit ebdc880
Author​: Nicholas Clark <nick@​ccl4.org>
Date​: Fri Oct 4 14​:54​:00 2013 +0200

  S_process_special_blocks() should use a new stack for BEGIN blocks.

  This avoids the stack moving underneath anything that directly or indirectly
  calls Perl_load_module().

  [Committer’s note​:

  This fixes bug #119993.

  Furthermore, under STRESS_REALLOC, t/io/layers.t was crashing like this​:

  $ ./perl -Ilib -e ' open(UTF, "<​:raw​:encoding(utf8)", 'tmp75851B') or die $!; ref #blahblahblahblahblahblahblahblahblah'
  Segmentation fault​: 11

  (The comment seems to be necessary to make it crash.)

  It was happening because open() was causing a module to be loaded
  while the arguments to open() were still on the stack.
  ]

:100644 100644 030039d05c970eab58ecc11ca5cc34689f605865 8a60800ceb9799ca56a79b662a3688b72a2905b8 M op.c

--
Respectfully,
Dan Collins

@p5pRT
Copy link
Author

p5pRT commented Sep 21, 2016

From [Unknown Contact. See original ticket]

Fixed between v5.19.6 and v5.19.7. Will also add a test.

ebdc880 is the first new commit
commit ebdc880
Author​: Nicholas Clark <nick@​ccl4.org>
Date​: Fri Oct 4 14​:54​:00 2013 +0200

  S_process_special_blocks() should use a new stack for BEGIN blocks.

  This avoids the stack moving underneath anything that directly or indirectly
  calls Perl_load_module().

  [Committer’s note​:

  This fixes bug #119993.

  Furthermore, under STRESS_REALLOC, t/io/layers.t was crashing like this​:

  $ ./perl -Ilib -e ' open(UTF, "<​:raw​:encoding(utf8)", 'tmp75851B') or die $!; ref #blahblahblahblahblahblahblahblahblah'
  Segmentation fault​: 11

  (The comment seems to be necessary to make it crash.)

  It was happening because open() was causing a module to be loaded
  while the arguments to open() were still on the stack.
  ]

:100644 100644 030039d05c970eab58ecc11ca5cc34689f605865 8a60800ceb9799ca56a79b662a3688b72a2905b8 M op.c

--
Respectfully,
Dan Collins

@p5pRT p5pRT closed this as completed Oct 21, 2016
@p5pRT
Copy link
Author

p5pRT commented Oct 21, 2016

@dcollinsn - Status changed from 'new' to 'resolved'

@p5pRT
Copy link
Author

p5pRT commented Oct 21, 2016

From @dcollinsn

Test added in 9e14fb1, closing.

--
Respectfully,
Dan Collins

@p5pRT
Copy link
Author

p5pRT commented Oct 21, 2016

From [Unknown Contact. See original ticket]

Test added in 9e14fb1, closing.

--
Respectfully,
Dan Collins

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

1 participant