VLB wrote: > At 09:46 -0400 07/13/1999, John Porter wrote: > >> 5_57 on what? > > > >Since there seems to be some continued interest in this on FWP, allow > >me to post a short session which demonstrates the problem: > > Repeating - on what hardware / OS? What's the output of Perl -V look like? > > I believe you see this. But I don't and neither does anyone else I have > found. > > > >Oh, btw: I get identical results on 5_02 and 5_57. > > I cannot reproduce your results on 5.005_02 on Sun Solaris, i386 FreeBSD or > MkLinux (RedHat on PPC). Chris Nandor cannot reproduce your results on > 5.005_57 on LinuxPPC (Power PC). There's more going on here than a simple > read_only variable. Oh, sorry. perl -V for my 5_02 and 5_57 are below. >From the looks of it, I'd guess the problem is related to the fact that they were both compiled with threads, which of course does strange things, as mentioned in perldelta: If threads are enabled, then some caveats apply. @_ and $_ become lexical variables. The effect of this should be largely transparent to the user, but there are some boundary conditions under which user will need to be aware of the issues. For example, local(@_) results in a "Can't localize lexical variable @_ ..." message. As a verification, I tried this: % perl local(@_); Can't localize lexical variable @_ at - line 1. (Interestingly, no such error occurs with local($_) !!!) John Porter Summary of my perl5 (5.0 patchlevel 5 subversion 2) configuration: Platform: osname=solaris, osvers=2.6, archname=sun4-solaris-thread uname='sunos prod5 5.6 generic_105181-08 sun4u sparc sunw,ultra-enterprise ' hint=recommended, useposix=true, d_sigaction=define usethreads=define useperlio=undef d_sfio=undef Compiler: cc='gcc -B/usr/ccs/bin/', optimize='-O', gccversion=2.8.1 cppflags='-D_REENTRANT -I/usr/local/include' ccflags ='-D_REENTRANT -I/usr/local/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='gcc -B/usr/ccs/bin/', ldflags =' -L/usr/local/lib' libpth=/usr/local/lib /lib /usr/lib /usr/ccs/lib libs=-lsocket -lnsl -lgdbm -ldb -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/usr/local/lib' Characteristics of this binary (from libperl): Built under solaris Compiled at Oct 22 1998 18:17:59 @INC: /usr/local/lib/perl5/5.00502/sun4-solaris-thread /usr/local/lib/perl5/5.00502 /usr/local/lib/perl5/site_perl/5.005/sun4-solaris-thread /usr/local/lib/perl5/site_perl/5.005 . Summary of my perl5 (revision 5.0 version 5 subversion 57) configuration: Platform: osname=solaris, osvers=2.6, archname=sun4-solaris-thread-multi uname='sunos persia 5.6 generic_105181-09 sun4u sparc sunw,ultra-60 ' config_args='' hint=previous, useposix=true, d_sigaction=define usethreads=define useperlio=undef d_sfio=undef use64bits=undef usemultiplicity=define Compiler: cc='gcc', optimize='-O', gccversion=2.8.1 cppflags='-B/usr/ccs/bin/ -D_REENTRANT -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -DUSE_LONG_LONG -I/usr/local/include' ccflags ='-B/usr/ccs/bin/ -D_REENTRANT -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -DUSE_LONG_LONG -I/usr/local/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='gcc', ldflags =' -L/usr/local/lib' libpth=/usr/local/lib /lib /usr/lib /usr/ccs/lib libs=-lsocket -lnsl -lgdbm -ldb -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=' -Wl,-E' cccdlflags='-fPIC', lddlflags=' -W,l-E -G -L/usr/local/lib' Characteristics of this binary (from libperl): Compile-time options: MULTIPLICITY Built under solaris Compiled at May 28 1999 11:30:56 @INC: /export/home/jdporter/perl-experimental/lib/5.00557/sun4-solaris-thread-multi /export/home/jdporter/perl-experimental/lib/5.00557 /export/home/jdporter/perl-experimental/lib/site_perl/5.00557/sun4-solaris-thread-multi /export/home/jdporter/perl-experimental/lib/site_perl/5.00557 . ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe