develooper Front page | perl.perl5.porters | Postings from May 2003

[perl #22291] 5.8.x: no warnings "redefine" doesn't affect constant subs

Thread Next
From:
Stas Bekman
Date:
May 23, 2003 00:17
Subject:
[perl #22291] 5.8.x: no warnings "redefine" doesn't affect constant subs
Message ID:
rt-22291-58088.15.6996853601136@bugs6.perl.org
# New Ticket Created by  Stas Bekman 
# Please include the string:  [perl #22291]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=22291 >


This is a bug report for perl from stas@hope.stason.org,
generated with the help of perlbug 1.34 running under perl v5.8.1.

-----------------------------------------------------------------
[Please enter your report here]

  % perl-5.6.1 -le' use warnings; use constant FOO => 1; \
    no warnings "redefine"; use constant FOO => 2;'

no output, good!

   % perl-5.8.1 -le' use warnings; use constant FOO => 1; \
     no warnings "redefine"; use constant FOO => 2;'
Constant subroutine main::FOO redefined at
/home/stas/perl/5.8.1/lib/5.8.1/constant.pm line 108.

you can't turn this one off even with $^W=0; the problem exists in 5.8.0
and blead-perl.

[Please do not change anything below this line]
-----------------------------------------------------------------
---
Flags:
     category=core
     severity=medium
---
Site configuration information for perl v5.8.1:

Configured by stas at Wed May 14 17:29:50 EST 2003.

Summary of my perl5 (revision 5.0 version 8 subversion 1) configuration:
   Platform:
     osname=linux, osvers=2.4.19-16mdksmp, archname=i686-linux
     uname='linux hope.stason.org 2.4.19-16mdksmp #1 smp fri sep 20 16:08:37 
cest 2002 i686 unknown unknown gnulinux '
     config_args='-des -Dprefix=/home/stas/perl/5.8.1 -Doptimize=-g 
-Duseshrplib -Dusedevel'
     hint=recommended, useposix=true, d_sigaction=define
     usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
     useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
     use64bitint=undef use64bitall=undef uselongdouble=undef
     usemymalloc=n, bincompat5005=undef
   Compiler:
     cc='cc', ccflags ='-DDEBUGGING -fno-strict-aliasing -D_LARGEFILE_SOURCE 
-D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm',
     optimize='-g',
     cppflags='-DDEBUGGING -fno-strict-aliasing -I/usr/include/gdbm'
     ccversion='', gccversion='3.2 (Mandrake Linux 9.0 3.2-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='cc', ldflags =' -L/usr/local/lib'
     libpth=/usr/local/lib /lib /usr/lib
     libs=-lnsl -lgdbm -ldb -ldl -lm -lc -lcrypt -lutil -lrt
     perllibs=-lnsl -ldl -lm -lc -lcrypt -lutil -lrt
     libc=/lib/libc-2.3.1.so, so=so, useshrplib=true, libperl=libperl.so
     gnulibc_version='2.3.1'
   Dynamic Linking:
     dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic 
-Wl,-rpath,/home/stas/perl/5.8.1/lib/5.8.1/i686-linux/CORE'
     cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'

Locally applied patches:
     MAINT19524

---
@INC for perl v5.8.1:
     /home/stas/perl/5.8.1/lib/5.8.1/i686-linux
     /home/stas/perl/5.8.1/lib/5.8.1
     /home/stas/perl/5.8.1/lib/site_perl/5.8.1/i686-linux
     /home/stas/perl/5.8.1/lib/site_perl/5.8.1
     /home/stas/perl/5.8.1/lib/site_perl
     .

---
Environment for perl v5.8.1:
     HOME=/home/stas
     LANG=en_US
     LANGUAGE=en_US:en
     LC_COLLATE=en_US
     LC_CTYPE=en_US
     LC_MESSAGES=en_US
     LC_MONETARY=en_US
     LC_NUMERIC=en_US
     LC_TIME=en_US
     LD_LIBRARY_PATH=/usr/X11R6/lib:/usr/X11R6/lib/modules
     LOGDIR (unset)
 
PATH=/usr//bin:/bin:/usr/bin:.:/usr/local/bin:/usr/X11R6/bin:/usr/games:/home/stas/bin:/home/stas/bin:/usr/local/bin:/usr/X11R6/bin:/usr/java/j2re1.4.0/bin/
     PERL_BADLANG (unset)
     SHELL=/bin/tcsh


__________________________________________________________________
Stas Bekman            JAm_pH ------> Just Another mod_perl Hacker
http://stason.org/     mod_perl Guide ---> http://perl.apache.org
mailto:stas@stason.org http://use.perl.org http://apacheweek.com
http://modperlbook.org http://apache.org   http://ticketmaster.com



Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About