Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

sv_setsv_flags shouldn't be using SvTYPE to decide about glob aliasing #8318

Closed
p5pRT opened this issue Feb 5, 2006 · 3 comments
Closed

Comments

@p5pRT
Copy link

p5pRT commented Feb 5, 2006

Migrated from rt.perl.org#38439 (status was 'resolved')

Searchable as RT38439$

@p5pRT
Copy link
Author

p5pRT commented Feb 5, 2006

From @nwc10

Created by @nwc10

$ ./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

Perl Info

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

@p5pRT
Copy link
Author

p5pRT commented Feb 7, 2006

@nwc10 - Status changed from 'new' to 'resolved'

@p5pRT p5pRT closed this as completed Feb 7, 2006
@p5pRT
Copy link
Author

p5pRT commented Feb 7, 2006

From @nwc10

On Sun, Feb 05, 2006 at 03​:42​:00PM -0800, Nicholas Clark wrote​:

$ ./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

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Projects
None yet
Development

No branches or pull requests

1 participant