Stanley Hopcroft <[EMAIL PROTECTED]> writes:
>Dear Sir,
>
>I am writing to thank you for your letter and say,
>
>On Tue, Feb 10, 2004 at 05:38:33PM +0000, Nick Ing-Simmons wrote:
>> Stanley Hopcroft <[EMAIL PROTECTED]> writes:
>> ... blah blah blah
>> >The difference between code that compiles (and runs) on the 5.8.1 system
>> >is _only_ the name of the Perl interpreter variable,
>>
>> Which as you have discovered is important.
>> If your perl is configured for threads or multiplicity
>> (and yours is both) there must be a
>>
>> PerlInterpreter *my_perl
>>
>> in scope before you call almost any of perl's internals.
>> Which line is 116 ?
>>
>
>PL_perl_destruct_level = 0;
Which is a perl variable assign.
In a threaded build that sets my_perl->...
>
>
>( ...
>
>fgets(plugin_output,sizeof(plugin_output)-1,fp);
> 109
>plugin_output[sizeof(plugin_output)-1]='\x0';
> 110 fclose(fp);
> 111 unlink(tmpfname);
> 112 printf("embedded perl plugin return
>code: %d. plugin output: %s\n",pclose_result, plugin_output);
> 113 }
> 114 }
> 115
> 116 PL_perl_destruct_level = 0;
> 117 perl_destruct(perl);
> 118 perl_free(perl);
> 119 exit(exitstatus);
> 120 }
>)
>
>
>> And can we see perl -V output for the perl you used there.
>
>[EMAIL PROTECTED] contrib]$ perl -V
>Summary of my perl5 (revision 5.0 version 8 subversion 1) configuration:
> Platform:
> osname=linux, osvers=2.4.18-23mdksmp,
>archname=i386-linux-thread-multi
> uname='linux hp6.mandrakesoft.com 2.4.18-23mdksmp #1 smp fri aug 2
>12:31:40 cest 2002 i686 unknown unknown gnulinux '
> config_args='-des -Dinc_version_list=5.8.0/i386-linux-thread-multi
>5.8.0 5.6.1 5.6.0 -Darchname=i386-linux -Dcc=gcc -Doptimize=-O2
>-fomit-frame-pointer -pipe -march=i586 -mcpu=pentiumpro -Dprefix=/usr
>-Dvendorprefix=/usr -Dsiteprefix=/usr -Dman3ext=3pm -Dcf_by=MandrakeSoft
>-Dmyhostname=localhost [EMAIL PROTECTED] -Dd_dosuid -Ud_csh
>-Duseshrplib -Dusethreads'
> hint=recommended, useposix=true, d_sigaction=define
> usethreads=define use5005threads=undef useithreads=define
>usemultiplicity=define
> useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
> use64bitint=undef use64bitall=undef uselongdouble=undef
> usemymalloc=n, bincompat5005=undef
> Compiler:
> cc='gcc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS
>-fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE
>-D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm',
> optimize='-O2 -fomit-frame-pointer -pipe -march=i586
>-mcpu=pentiumpro ',
> cppflags='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS
>-fno-strict-aliasing -I/usr/local/include -I/usr/include/gdbm'
> ccversion='', gccversion='3.3.1 (Mandrake Linux 9.2 3.3.1-1mdk)',
>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='gcc', ldflags =' -L/usr/local/lib'
> libpth=/usr/local/lib /lib /usr/lib
> libs=-lnsl -lndbm -lgdbm -ldl -lm -lcrypt -lutil -lpthread -lc
> perllibs=-lnsl -ldl -lm -lcrypt -lutil -lpthread -lc
> libc=/lib/libc-2.3.2.so, so=so, useshrplib=true, libperl=libperl.so
> gnulibc_version='2.3.2'
> Dynamic Linking:
> dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic
>-Wl,-rpath,/usr/lib/perl5/5.8.1/i386-linux-thread-multi/CORE'
> cccdlflags='-fPIC', lddlflags='-shared -L/usr/local/lib'
>
>
>Characteristics of this binary (from libperl):
> Compile-time options: MULTIPLICITY USE_ITHREADS USE_LARGE_FILES
>PERL_IMPLICIT_CONTEXT
> Locally applied patches:
> RC4
> Built under linux
> Compiled at Sep 1 2003 17:29:01
> @INC:
> /usr/lib/perl5/5.8.1/i386-linux-thread-multi
> /usr/lib/perl5/5.8.1
> /usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi
> /usr/lib/perl5/site_perl/5.8.1
> /usr/lib/perl5/site_perl/5.6.1
> /usr/lib/perl5/site_perl
> /usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi
> /usr/lib/perl5/vendor_perl/5.8.1
> /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi
> /usr/lib/perl5/vendor_perl/5.8.0
> /usr/lib/perl5/vendor_perl
> .
>[EMAIL PROTECTED] contrib]$
>
>FWIW, there don't appear to be any notes in the perlembed docs about
>this (I would have missed them if they'd been there).
>
>Thank you very much for explaining this and sorry for the noise.
>
>Yours sincerely.
>
>--
>------------------------------------------------------------------------
>Stanley Hopcroft
>------------------------------------------------------------------------
>
>'...No man is an island, entire of itself; every man is a piece of the
>continent, a part of the main. If a clod be washed away by the sea,
>Europe is the less, as well as if a promontory were, as well as if a
>manor of thy friend's or of thine own were. Any man's death diminishes
>me, because I am involved in mankind; and therefore never send to know
>for whom the bell tolls; it tolls for thee...'
>
>from Meditation 17, J Donne.
