splice(@_,0,1,'x') crashes at runtime #1105

p5pRT · 2000-01-31T05:05:21Z

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

Searchable as RT2059$

p5pRT · 2000-01-31T05:05:21Z

From wolfgang.laun@alcatel.at

Created by Wolfgang.Laun@alcatel.at

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.

Perl Info



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

p5pRT · 2000-01-31T07:06:42Z

From @gsar

On Mon, 31 Jan 2000 14:04:37 +0100, Wolfgang Laun wrote:

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.

As doesn't 5.005_63.

Sarathy
gsar@ActiveState.com

p5pRT closed this as completed Nov 28, 2003

p5pRT added Severity High distro-Solaris type-library labels Oct 18, 2019

p5pRT mentioned this issue Oct 19, 2019

Program terminated with signal 11, Segmentation fault. #12469

Closed

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

splice(@_,0,1,'x') crashes at runtime #1105

splice(@_,0,1,'x') crashes at runtime #1105

p5pRT commented Jan 31, 2000

p5pRT commented Jan 31, 2000

p5pRT commented Jan 31, 2000

splice(@_,0,1,'x') crashes at runtime #1105

splice(@_,0,1,'x') crashes at runtime #1105

Comments

p5pRT commented Jan 31, 2000

p5pRT commented Jan 31, 2000

From wolfgang.laun@alcatel.at

Created by Wolfgang.Laun@alcatel.at

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 ); }

p5pRT commented Jan 31, 2000

From @gsar

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 );
}