# New Ticket Created by [EMAIL PROTECTED]
# Please include the string: [perl #54948]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=54948 >
Using a rock paper sicissors script posted here a while bac, this *once*
worked
my @t = (Paper.new, Rock.new, Scissors.new);
but now
$ ./perl6 ../rps.pl
RPS v0.2 p - Paper, r - rock, s - scissors (q for quit)
new
You passed an initialization parameter that does not have a matching
attribute.
current instr.: 'die' pc 7505 (src/gen_builtins.pir:5124)
called from Sub 'parrot;Perl6Object;new' pc 370
(src/gen_builtins.pir:256)
called from Sub 'prefix:=' pc 1516 (src/gen_builtins.pir:1164)
called from Sub '_block11' pc 124 (EVAL_13:35)
called from Sub 'parrot;PCT::HLLCompiler;eval' pc 783
(src/PCT/HLLCompiler.pir:458)
Tried these two (which may have worked once):
my $p = Paper.new; my $r .= Rock.new; my $s = Rock.new;
#my Paper $p .= new; my Rock $r .= new; my Scissors $s .= new;
my @t = ($p, $r, $s);
$ ./perl6 ../rps.pl
RPS v0.2 p - Paper, r - rock, s - scissors (q for quit)
new
Null PMC access in clone()
current instr.: '_block11' pc 157 (EVAL_13:48)
The script, when it worked, would run for a while and then segfault
(after an arbitrary number of loops) which I was trying to get to the
bottom of, but now have been sidelined.
Linux localhost.localdomain 2.6.18-53.1.21.el5xen #1 SMP Tue May 20
10:31:46 EDT 2008 i686 i686 i386 GNU/Linux
Summary of my perl5 (revision 5 version 10 subversion 0) configuration:
Platform:
osname=linux, osvers=2.6.18-53.1.21.el5xen, archname=i686-linux
uname='linux localhost.localdomain 2.6.18-53.1.21.el5xen #1 smp tue
may 20 10:31:46 edt 2008 i686 i686 i386 gnulinux '
config_args='-d'
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-strict-aliasing -pipe -I/usr/local/include
-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm',
optimize='-O2',
cppflags='-fno-strict-aliasing -pipe -I/usr/local/include
-I/usr/include/gdbm'
ccversion='', gccversion='4.1.2 20070626 (Red Hat 4.1.2-14)',
gccosandvers=''
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t',
lseeksize=8
alignbytes=4, prototype=define
Linker and Libraries:
ld='cc', ldflags =' -L/usr/local/lib'
libpth=/usr/local/lib /lib /usr/lib
libs=-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lc
perllibs=-lnsl -ldl -lm -lcrypt -lutil -lc
libc=/lib/libc-2.5.so, so=so, useshrplib=false, libperl=libperl.a
gnulibc_version='2.5'
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
cccdlflags='-fPIC', lddlflags='-shared -O2 -L/usr/local/lib'
Characteristics of this binary (from libperl):
Compile-time options: PERL_DONT_CREATE_GVSV PERL_MALLOC_WRAP
USE_LARGE_FILES USE_PERLIO
Target: i386-redhat-linux
Configured with: ../configure --prefix=/usr --mandir=/usr/share/man
--infodir=/usr/share/info --enable-shared --enable-threads=posix
--enable-checking=release --with-system-zlib --enable-__cxa_atexit
--disable-libunwind-exceptions --enable-libgcj-multifile
--enable-languages=c,c++,objc,obj-c++,java,fortran,ada
--enable-java-awt=gtk --disable-dssi --enable-plugin
--with-java-home=/usr/lib/jvm/java-1.4.2-gcj-1.4.2.0/jre
--with-cpu=generic --host=i386-redhat-linux
Thread model: posix
gcc version 4.1.2 20070626 (Red Hat 4.1.2-14)
a
--
Andy Bach
Systems Mangler
Internet: [EMAIL PROTECTED]
Voice: (608) 261-5738 Fax: 264-5932
Sent from Evolution (CentOS)!!!
