develooper Front page | perl.perl5.porters | Postings from June 2002

[ID 20020628.001] Error with 'Bizarre copy of ARRAY in leave...'

Thread Next
From:
Shawn
Date:
June 28, 2002 03:56
Subject:
[ID 20020628.001] Error with 'Bizarre copy of ARRAY in leave...'
Message ID:
0c2b01c21e90$feb40610$b100a8c0@WORK
Hello, not sure if this is the right place to send this, or if it is even a real
error or a mistake on my part, but I have tried with several IDE debuggers to 
run a script through, and it dies the same on all of them with the error 
'Bizarre copy of ARRAY in leave...'.

dies on the second line here:
<snippet>
  ($self->{SELECT_ID})=$self->_fetch;
  for my $row (0..$#{@{$self->{SELECT_ID}}}) {
    my %hash;
    for(0..$#{@$list}) {
      $hash{$list->[$_]}=$self->{SELECT_ID}->[$row]->[$_];
    }
    push @{$self->{SELECT}}, \%hash;
  }

  sub _fetch {
    my $self=shift;
    my @rows;
    while(my $row=$self->{STH}->fetchrow_arrayref) { push @rows, [@$row]; }
    return(\@rows);
  }
</snippet>

If you have any questions, or I did not supply enough info, let me know, and I 
will get you anything your need.  If this is something that is know, or just 
plain isn't a bug, I apologize.

Thanks for your time,
Shawn McKinley

I am running on Win2K with SP2.  Perl info to follow:

D:\>perl -V
Summary of my perl5 (revision 5 version 6 subversion 1) configuration:
  Platform:
    osname=MSWin32, osvers=4.0, archname=MSWin32-x86-multi-thread
    uname=''
    config_args='undef'
    hint=recommended, useposix=true, d_sigaction=undef
    usethreads=undef use5005threads=undef useithreads=define usemultiplicity=def
ine
    useperlio=undef d_sfio=undef uselargefiles=undef usesocks=undef
    use64bitint=undef use64bitall=undef uselongdouble=undef
  Compiler:
    cc='cl', ccflags ='-nologo -O1 -MD -DNDEBUG -DWIN32 -D_CONSOLE -DNO_STRICT -
DHAVE_DES_FCRYPT  -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DPERL_MSVCRT_READ
FIX',
    optimize='-O1 -MD -DNDEBUG',
    cppflags='-DWIN32'
    ccversion='', gccversion='', gccosandvers=''
    intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
    d_longlong=undef, longlongsize=8, d_longdbl=define, longdblsize=10
    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize
=4
    alignbytes=8, usemymalloc=n, prototype=define
  Linker and Libraries:
    ld='link', ldflags ='-nologo -nodefaultlib -release  -libpath:"D:\Perl\lib\C
ORE"  -machine:x86'
    libpth="D:\MSVS\VC98\mfc\lib" "D:\MSVS\VC98\lib" "D:\Perl\lib\CORE"
    libs=  oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib  comdlg32
..lib advapi32.lib shell32.lib ole32.lib oleaut32.lib  netapi32.lib uuid.lib wsoc
k32.lib mpr.lib winmm.lib  version.lib odbc32.lib odbccp32.lib msvcrt.lib
    perllibs=  oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib  comd
lg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib  netapi32.lib uuid.lib
wsock32.lib mpr.lib winmm.lib  version.lib odbc32.lib odbccp32.lib msvcrt.lib
    libc=msvcrt.lib, so=dll, useshrplib=yes, libperl=perl56.lib
  Dynamic Linking:
    dlsrc=dl_win32.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' '
    cccdlflags=' ', lddlflags='-dll -nologo -nodefaultlib -release  -libpath:"D:
\Perl\lib\CORE"  -machine:x86'


Characteristics of this binary (from libperl):
  Compile-time options: MULTIPLICITY USE_ITHREADS PERL_IMPLICIT_CONTEXT PERL_IMP
LICIT_SYS
  Locally applied patches:
        ActivePerl Build 631
  Built under MSWin32
  Compiled at Jan  2 2002 17:16:22
  %ENV:
    PERLDB_OPTS="RemotePort=127.0.0.1:2000"
  @INC:
    D:/Perl/lib
    D:/Perl/site/lib
    .


Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About