[ID 20000131.001] splice(@_,0,1,'x') crashes at runtime

[wolfgang.laun@alcatel.at (Wolfgang Laun)]

This is a bug report for perl from Wolfgang.Laun@alcatel.at,
generated with the help of perlbug 1.26 running under perl 5.00503.


-----------------------------------------------------------------
[Please enter your report here]

This perl program crashes (see below):
========================
#! /tag/mt/bin/perl5.00503
use strict;
my $i;
sub p {
  splice( @_, $i, 0, '-!-' );
  print "arg: @_\n";
}
my @a = qw( A B C D E );
for( $i = 0; $i < @a; $i++ ){
  p( @a );
}
========================
arg: -!- A B C D E
Assertion failed: file "pp.c", line 2662 at ./xxx.pl line 8.

Perl version 5.00405 does not show this bug.

[Please do not change anything below this line]
-----------------------------------------------------------------

---
This perlbug was built using Perl 5.00405 - Mon Jun 21 09:06:51 MET DST 1999
It is being executed now by  Perl 5.00503 - Mon Jun 21 16:01:58 MET DST 1999.

Site configuration information for perl 5.00503:

Configured by giersig at Mon Jun 21 16:01:58 MET DST 1999.

Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration:
  Platform:
    osname=solaris, osvers=2.5.1, archname=sun4-solaris-thread
    uname='sunos atusels1 5.5.1 generic_103640-24 sun4u sparc sunw,ultra-4 '
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=define useperlio=undef d_sfio=undef
  Compiler:
    cc='/tag/mt/bin/gcc -B/usr/ccs/bin/', optimize='-O -g', gccversion=2.9-gnupro-98r1
    cppflags='-D_REENTRANT -DDEBUGGING -I/tag/mt/include -I/tag/mt/fsf/include -I/usr/GNU/include'
    ccflags ='-D_REENTRANT -DDEBUGGING -I/tag/mt/include -I/tag/mt/fsf/include -I/usr/GNU/include'
    stdchar='unsigned char', d_stdstdio=define, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
    alignbytes=8, usemymalloc=y, prototype=define
  Linker and Libraries:
    ld='/tag/mt/bin/gcc -B/usr/ccs/bin/', ldflags ='-L/tag/mt/lib -L/tag/mt/fsf/lib -L/usr/GNU/lib'
    libpth=/tag/mt/lib /tag/mt/fsf/lib /usr/GNU/lib /lib /usr/lib /usr/ccs/lib
    libs=-lsocket -lnsl -lgdbm -ldl -lm -lposix4 -lpthread -lc -lcrypt
    libc=/lib/libc.so, so=so, useshrplib=false, libperl=libperl.a
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '
    cccdlflags='-fPIC', lddlflags='-G -L/tag/mt/lib -L/tag/mt/fsf/lib -L/usr/GNU/lib'

Locally applied patches:
    

---
@INC for perl 5.00503:
    /tag/mt/fsf/lib/perl5/5.00503/sun4-solaris-thread
    /tag/mt/fsf/lib/perl5/5.00503
    /tag/mt/fsf/lib/perl5/site_perl/5.005/sun4-solaris-thread
    /tag/mt/fsf/lib/perl5/site_perl/5.005
    .

---
Environment for perl 5.00503:
    HOME=/users/tas/laune
    LANG (unset)
    LD_LIBRARY_PATH=
    LOGDIR (unset)
    PATH=:/users/el486t/cygnus/gnubin/solaris/sun4/bin:/users/elektra/el_vobadm/setup:/users/elektra/el_vobadm/setup/../bin:/usr/atria/bin:/tools/pure/bin:/usr/openwin/bin:/usr/GNU/bin:/tools/tex/solaris/bin:/usr/X11R6/bin:/usr/local/bin:/usr/AAA/bin:/usr/bin:/usr/ucb:/elektra/tools/make_sys:/elektra/vobs/makehome/scripts:/users/tas/laune/bin
    PERL_BADLANG (unset)
    SHELL=/usr/GNU/bin/bash

---

Follow-Ups from:

Gurusamy Sarathy <gsar@ActiveState.com>

---

[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index][Thread Index][Top&Search][Original]

---