Front page | perl.perl5.porters |
Postings from August 2013
[perl #119547] 42->{42} works in strict mode
Thread Next
From:
GlitchMr
Date:
August 31, 2013 19:12
Subject:
[perl #119547] 42->{42} works in strict mode
Message ID:
rt-3.6.HEAD-1873-1377976336-972.119547-75-0@perl.org
# New Ticket Created by GlitchMr
# Please include the string: [perl #119547]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=119547 >
This is a bug report for perl from glitchmr@myopera.com,
generated with the help of perlbug 1.39 running under perl 5.18.1.
-----------------------------------------------------------------
[Please describe your issue here]
Following code doesn't fail, when it should (42 is symbolic ref)
use strict;
42->{42};
This code also doesn't fail.
use strict;
sub CONSTANT() { 42 }
CONSTANT->{42};
But this does correctly fail.
use strict;
sub { 42 }->()->{42};
# Can't use string ("42") as a HASH ref while "strict refs" in
use...
[Please do not change anything below this line]
-----------------------------------------------------------------
---
Flags:
category=library
severity=medium
module=strict
---
Site configuration information for perl 5.18.1:
Configured by nobody at Tue Aug 13 13:22:58 CEST 2013.
Summary of my perl5 (revision 5 version 18 subversion 1) configuration:
Platform:
osname=linux, osvers=3.10.5-1-arch,
archname=x86_64-linux-thread-multi
uname='linux mnt-chroots-arch-extra-x86_64-flo-64 3.10.5-1-arch #1
smp preempt mon aug 5 08:04:22 cest 2013 x86_64 gnulinux '
config_args='-des -Dusethreads -Duseshrplib -Doptimize=-march=x86-64
-mtune=generic -O2 -pipe -fstack-protector --param=ssp-buffer-size=4
-Dprefix=/usr -Dvendorprefix=/usr
-Dprivlib=/usr/share/perl5/core_perl
-Darchlib=/usr/lib/perl5/core_perl
-Dsitelib=/usr/share/perl5/site_perl
-Dsitearch=/usr/lib/perl5/site_perl
-Dvendorlib=/usr/share/perl5/vendor_perl
-Dvendorarch=/usr/lib/perl5/vendor_perl
-Dscriptdir=/usr/bin/core_perl -Dsitescript=/usr/bin/site_perl
-Dvendorscript=/usr/bin/vendor_perl -Dinc_version_list=none
-Dman1ext=1perl -Dman3ext=3perl -Dcccdlflags='-fPIC'
-Dlddlflags=-shared -Wl,-O1,--sort-common,--as-needed,-z,relro
-Dldflags=-Wl,-O1,--sort-common,--as-needed,-z,relro'
hint=recommended, useposix=true, d_sigaction=define
useithreads=define, usemultiplicity=define
useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
use64bitint=define, use64bitall=define, uselongdouble=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='cc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -fno-strict-aliasing
-pipe -fstack-protector -I/usr/local/include -D_LARGEFILE_SOURCE
-D_FILE_OFFSET_BITS=64',
optimize='-march=x86-64 -mtune=generic -O2 -pipe -fstack-protector
--param=ssp-buffer-size=4',
cppflags='-D_REENTRANT -D_GNU_SOURCE -fno-strict-aliasing -pipe
-fstack-protector -I/usr/local/include'
ccversion='', gccversion='4.8.1 20130725 (prerelease)',
gccosandvers=''
intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
ivtype='long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t',
lseeksize=8
alignbytes=8, prototype=define
Linker and Libraries:
ld='cc', ldflags ='-Wl,-O1,--sort-common,--as-needed,-z,relro
-fstack-protector -L/usr/local/lib'
libpth=/usr/local/lib /lib/../lib /usr/lib/../lib /lib /usr/lib
/lib64 /usr/lib64
libs=-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lpthread -lc
-lgdbm_compat
perllibs=-lnsl -ldl -lm -lcrypt -lutil -lpthread -lc
libc=/lib/libc-2.17.so, so=so, useshrplib=true, libperl=libperl.so
gnulibc_version='2.17'
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E
-Wl,-rpath,/usr/lib/perl5/core_perl/CORE'
cccdlflags='-fPIC', lddlflags='-shared
-Wl,-O1,--sort-common,--as-needed,-z,relro -L/usr/local/lib
-fstack-protector'
Locally applied patches:
---
@INC for perl 5.18.1:
/home/glitchmr/perl5/lib/perl5/x86_64-linux-thread-multi
/home/glitchmr/perl5/lib/perl5
/usr/lib/perl5/site_perl
/usr/share/perl5/site_perl
/usr/lib/perl5/vendor_perl
/usr/share/perl5/vendor_perl
/usr/lib/perl5/core_perl
/usr/share/perl5/core_perl
.
---
Environment for perl 5.18.1:
HOME=/home/glitchmr
LANG=pl_PL.UTF-8
LANGUAGE (unset)
LD_LIBRARY_PATH (unset)
LOGDIR (unset)
PATH=/usr/lib/colorgcc/bin:/home/glitchmr/.gem/ruby/2.0.0/bin:/home/glitchmr/perl5/bin:/usr/bin/vendor_perl:/usr/bin
PERL5LIB=/home/glitchmr/perl5/lib/perl5
PERL_BADLANG (unset)
PERL_LOCAL_LIB_ROOT=:/home/glitchmr/perl5
PERL_MM_OPT=INSTALL_BASE=/home/glitchmr/perl5
SHELL=/usr/bin/fish
Thread Next
-
[perl #119547] 42->{42} works in strict mode
by GlitchMr