From @andk

git bisect

commit bbfdc87
Author​: Father Chrysostomos <sprout@​cpan.org>
Date​: Tue Jul 16 22​:56​:44 2013 -0700

  [perl #118691] Allow defelem magic with neg indices

diagnostics

http​://www.cpantesters.org/cpan/report/bb22b228-da05-11e3-a858-50e272305bfd

ticket at rt.cpan.org

https://rt.cpan.org/Ticket/Display.html?id=95561

perl -V

Summary of my perl5 (revision 5 version 19 subversion 5) configuration​:
  Commit id​: 1cd5f67
  Platform​:
  osname=linux, osvers=3.13-1-amd64, archname=x86_64-linux
  uname='linux k83 3.13-1-amd64 #1 smp debian 3.13.7-1 (2014-03-25) x86_64 gnulinux '
  config_args='-Dprefix=/home/sand/src/perl/repoperls/installed-perls/perl/v5.19.5/165a -Dmyhostname=k83 -Dinstallusrbinperl=n -Uversiononly -Dusedevel -des -Ui_db -Uuseithreads -Uuselongdouble -DDEBUGGING=-g'
  hint=recommended, useposix=true, d_sigaction=define
  useithreads=undef, usemultiplicity=undef
  useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
  use64bitint=define, use64bitall=define, uselongdouble=undef
  usemymalloc=n, bincompat5005=undef
  Compiler​:
  cc='cc', ccflags ='-fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
  optimize='-O2 -g',
  cppflags='-fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include'
  ccversion='', gccversion='4.8.2', gccosandvers=''
  intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678
  d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
  ivtype='long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
  alignbytes=8, prototype=define
  Linker and Libraries​:
  ld='cc', ldflags =' -fstack-protector -L/usr/local/lib'
  libpth=/usr/local/lib /lib/x86_64-linux-gnu /lib/../lib /usr/lib/x86_64-linux-gnu /usr/lib/../lib /lib /usr/lib
  libs=-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lc -lgdbm_compat
  perllibs=-lnsl -ldl -lm -lcrypt -lutil -lc
  libc=, so=so, useshrplib=false, libperl=libperl.a
  gnulibc_version='2.18'
  Dynamic Linking​:
  dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
  cccdlflags='-fPIC', lddlflags='-shared -O2 -g -L/usr/local/lib -fstack-protector'

Characteristics of this binary (from libperl)​:
  Compile-time options​: HAS_TIMES PERLIO_LAYERS PERL_DONT_CREATE_GVSV
  PERL_HASH_FUNC_ONE_AT_A_TIME_HARD PERL_MALLOC_WRAP
  PERL_NEW_COPY_ON_WRITE PERL_PRESERVE_IVUV
  PERL_USE_DEVEL USE_64_BIT_ALL USE_64_BIT_INT
  USE_LARGE_FILES USE_LOCALE USE_LOCALE_COLLATE
  USE_LOCALE_CTYPE USE_LOCALE_NUMERIC USE_PERLIO
  USE_PERL_ATOF
  Built under linux
  Compiled at May 2 2014 07​:55​:37
  %ENV​:
  PERL5LIB=""
  PERL5OPT=""
  PERL5_CPANPLUS_IS_RUNNING="7004"
  PERL5_CPAN_IS_RUNNING="7004"
  PERL_MM_USE_DEFAULT="1"
  @​INC​:
  /home/sand/src/perl/repoperls/installed-perls/perl/v5.19.5/165a/lib/site_perl/5.19.5/x86_64-linux
  /home/sand/src/perl/repoperls/installed-perls/perl/v5.19.5/165a/lib/site_perl/5.19.5
  /home/sand/src/perl/repoperls/installed-perls/perl/v5.19.5/165a/lib/5.19.5/x86_64-linux
  /home/sand/src/perl/repoperls/installed-perls/perl/v5.19.5/165a/lib/5.19.5
  .
--
andreas

From @iabyn

On Mon, May 12, 2014 at 02​:00​:09PM -0700, Andreas J. Koenig via RT wrote​:

git bisect
----------
commit bbfdc87
Author​: Father Chrysostomos <sprout@​cpan.org>
Date​: Tue Jul 16 22​:56​:44 2013 -0700

\[perl \#118691\] Allow defelem magic with neg indices

diagnostics
-----------
http​://www.cpantesters.org/cpan/report/bb22b228-da05-11e3-a858-50e272305bfd

ticket at rt.cpan.org
---------------------
https://rt.cpan.org/Ticket/Display.html?id=95561

This is a bug fix.

The test in OOPS is testing for old buggy behaviour. Basically its doing​:

  my @​a;
  $a[7] = 1;
  my $i = 4;
  foo($a[$i]);
  print "exists\n" if exists $a[$i];

On 5.18.2 you get​: 'exists'
on 5.19.4 onwards you don't.

On the other hand if you change it to '$i = 10', then
you don't get 'exists' on either.

Basically that patch improved the autovivification avoidance for function
args from being just for elements above $#a to being any non-existent
element.

--
Never do today what you can put off till tomorrow.

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

From @andk

"Dave Mitchell via RT" <perlbug-followup@​perl.org> writes​:

This is a bug fix.

Thanks a lot for the assessment!

--
andreas

@iabyn - Status changed from 'open' to 'rejected'