Skip Menu |
Report information
Id: 38439
Status: resolved
Priority: 0/
Queue: perl5

Owner: nicholas <nick [at] ccl4.org>
Requestors: nicholas <nick [at] ccl4.org>
Cc:
AdminCc:

Operating System: freebsd
PatchStatus: (no value)
Severity: low
Type: core
Perl Version: 5.9.4
Fixed In: (no value)



Subject: sv_setsv_flags shouldn't be using SvTYPE to decide about glob aliasing
Date: Sun, 05 Feb 2006 23:39:38 +0000
To: perlbug [...] perl.org
From: Nicholas Clark <nick [...] etla.org>
Download (untitled) / with headers
text/plain 3.3k
This is a bug report for perl from nick@ccl4.org, generated with the help of perlbug 1.35 running under perl 5.9.4. ----------------------------------------------------------------- [Please enter your report here] $ ./perl -Ilib -lwe '$r = \*b; *a = $r; $b++; print $a' 1 $ ./perl -Ilib -lwe '$r = ""; $r = \*b; *a = $r; $b++; print $a' *main::b I believe that the latter code snippet should also output 1. Nicholas Clark [Please do not change anything below this line] ----------------------------------------------------------------- --- Flags: category=core severity=low --- Site configuration information for perl 5.9.4: Configured by nick at Sun Feb 5 23:26:57 GMT 2006. Summary of my perl5 (revision 5 version 9 subversion 4) configuration: Platform: osname=freebsd, osvers=5.3-release-p25, archname=i386-freebsd-thread-multi uname='freebsd saigo.etla.org 5.3-release-p25 freebsd 5.3-release-p25 #0: mon jan 30 21:09:14 gmt 2006 root@saigo.etla.org:usrobjusrsrcsyssaigo i386 ' config_args='-Dusedevel=y -Dcc=ccache gcc -Dld=gcc -Ubincompat5005 -Uinstallusrbinperl -Dcf_email=nick@ccl4.org -Dperladmin=nick@ccl4.org -Dinc_version_list= -Dinc_version_list_init=0 -Doptimize=-g -Dusethreads -Uuse64bitint -Uusemymalloc -Duseperlio -Dprefix=~/Sandpit/snap5.9.x-27100 -Dinstallman1dir=none -Dinstallman3dir=none -de' hint=recommended, useposix=true, d_sigaction=define 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='ccache gcc', ccflags ='-DHAS_FPSETMASK -DHAS_FLOATINGPOINT_H -DDEBUGGING -fno-strict-aliasing -pipe -Wdeclaration-after-statement -I/usr/local/include', optimize='-g', cppflags='-DHAS_FPSETMASK -DHAS_FLOATINGPOINT_H -DDEBUGGING -fno-strict-aliasing -pipe -Wdeclaration-after-statement -I/usr/local/include' ccversion='', gccversion='3.4.2 [FreeBSD] 20040728', 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 ='-Wl,-E -L/usr/local/lib' libpth=/usr/lib /usr/local/lib libs=-lm -lcrypt -lutil -lc_r perllibs=-lm -lcrypt -lutil -lc_r libc=, so=so, useshrplib=false, libperl=libperl.a gnulibc_version='' Dynamic Linking: dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' ' cccdlflags='-DPIC -fPIC', lddlflags='-shared -L/usr/local/lib' Locally applied patches: --- @INC for perl 5.9.4: lib /home/nick/Sandpit/snap5.9.x-27100/lib/perl5/5.9.4/i386-freebsd-thread-multi /home/nick/Sandpit/snap5.9.x-27100/lib/perl5/5.9.4 /home/nick/Sandpit/snap5.9.x-27100/lib/perl5/site_perl/5.9.4/i386-freebsd-thread-multi /home/nick/Sandpit/snap5.9.x-27100/lib/perl5/site_perl/5.9.4 /home/nick/Sandpit/snap5.9.x-27100/lib/perl5/site_perl . --- Environment for perl 5.9.4: HOME=/home/nick LANG (unset) LANGUAGE (unset) LD_LIBRARY_PATH (unset) LOGDIR (unset) PATH=/home/nick/bin:/sbin:/bin:/usr/sbin:/usr/bin:/usr/games:/usr/local/sbin:/usr/local/bin:/usr/X11R6/bin:/home/nick/bin:/usr/local/sbin:/sbin:/usr/sbin PERL_BADLANG (unset) SHELL=/usr/local/bin/bash
Subject: Re: [perl #38439] sv_setsv_flags shouldn't be using SvTYPE to decide about glob aliasing
Date: Tue, 7 Feb 2006 11:33:26 +0000
To: perl5-porters [...] perl.org
From: Nicholas Clark <nick [...] ccl4.org>
Download (untitled) / with headers
text/plain 320b
On Sun, Feb 05, 2006 at 03:42:00PM -0800, Nicholas Clark wrote: Show quoted text
> $ ./perl -Ilib -lwe '$r = \*b; *a = $r; $b++; print $a' > 1 > $ ./perl -Ilib -lwe '$r = ""; $r = \*b; *a = $r; $b++; print $a' > *main::b > > I believe that the latter code snippet should also output 1.
So I fixed in in change 27104. Nicholas Clark


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

For issues related to this RT instance (aka "perlbug"), please contact perlbug-admin at perl.org