RE: [perl #42601] Inconsistent warning of redefined subroutines in Exporter

I've just got round to picking this up again. I asked a friend to do a
test on his Perl 5.8.8 installation and he's still seeing the bug:

lentinj@woodchuck:~$ perl -V
Summary of my perl5 (revision 5 version 8 subversion 8) configuration:
  Platform:
    osname=linux, osvers=2.6.17-rc1,
archname=sparc-linux-gnu-thread-multi
    uname='linux auric 2.6.17-rc1 #1 smp wed apr 12 21:45:35 edt 2006
sparc64 gnulinux '
    config_args='-Dusethreads -Duselargefiles -Dccflags=-DDEBIAN
-Dcccdlflags=-fPIC -Darchname=sparc-linux-gnu -Dprefix=/usr
-Dprivlib=/usr/share/perl/5.8 -Darchlib=/usr/lib/perl/5.8
-Dvendorprefix=/usr -Dvendorlib=/usr/share/perl5
-Dvendorarch=/usr/lib/perl5 -Dsiteprefix=/usr/local
-Dsitelib=/usr/local/share/perl/5.8.8
-Dsitearch=/usr/local/lib/perl/5.8.8 -Dman1dir=/usr/share/man/man1
-Dman3dir=/usr/share/man/man3 -Dsiteman1dir=/usr/local/man/man1
-Dsiteman3dir=/usr/local/man/man3 -Dman1ext=1 -Dman3ext=3perl
-Dpager=/usr/bin/sensible-pager -Uafs -Ud_csh -Uusesfio -Uusenm
-Duseshrplib -Dlibperl=libperl.so.5.8.8 -Dd_dosuid -des'
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=define use5005threads=undef 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='cc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS
-DDEBIAN -fno-strict-aliasing -pipe -I/usr/local/include
-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
    optimize='-O2',
    cppflags='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBIAN
-fno-strict-aliasing -pipe -I/usr/local/include'
    ccversion='', gccversion='4.1.2 20061115 (prerelease) (Debian
4.1.1-20)', gccosandvers=''
    intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=4321
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=8
    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t',
lseeksize=8
    alignbytes=8, prototype=define
  Linker and Libraries:
    ld='cc', ldflags =' -L/usr/local/lib'
    libpth=/usr/local/lib /lib /usr/lib
    libs=-lgdbm -lgdbm_compat -ldb -ldl -lm -lpthread -lc -lcrypt
    perllibs=-ldl -lm -lpthread -lc -lcrypt
    libc=/lib/libc-2.3.6.so, so=so, useshrplib=true,
libperl=libperl.so.5.8.8
    gnulibc_version='2.3.6'
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
    cccdlflags='-fPIC', lddlflags='-shared -L/usr/local/lib'


Characteristics of this binary (from libperl):
  Compile-time options: MULTIPLICITY PERL_IMPLICIT_CONTEXT
                        PERL_MALLOC_WRAP THREADS_HAVE_PIDS USE_ITHREADS
                        USE_LARGE_FILES USE_PERLIO USE_REENTRANT_API
  Built under linux
  Compiled at Dec  6 2006 17:48:33
  @INC:
    /etc/perl
    /usr/local/lib/perl/5.8.8
    /usr/local/share/perl/5.8.8
    /usr/lib/perl5
    /usr/share/perl5
    /usr/lib/perl/5.8
    /usr/share/perl/5.8
    /usr/local/lib/site_perl
    /usr/local/lib/perl/5.8.4
    /usr/local/share/perl/5.8.4
    .
lentinj@woodchuck:~/exporter-bug$ perl -we 'use Once; printf "%6d:
%s\n",  -s, $_ for sort values %INC;'
  4112: /usr/share/perl/5.8/Carp.pm
  2218: /usr/share/perl/5.8/Exporter.pm
  3975: /usr/share/perl/5.8/base.pm
   599: /usr/share/perl/5.8/strict.pm
  1149: /usr/share/perl/5.8/vars.pm
 13018: /usr/share/perl/5.8/warnings.pm
   732: /usr/share/perl/5.8/warnings/register.pm
   101: Bar.pm
   101: Foo.pm
    63: Once.pm
lentinj@woodchuck:~/exporter-bug$ perl -we 'use Once; use Twice; printf
"%6d: %s\n",  -s, $_ for sort values %INC;'
Subroutine Twice::foobar redefined at /usr/share/perl/5.8/Exporter.pm
line 65.
 at Twice.pm line 4
  4112: /usr/share/perl/5.8/Carp.pm
  5747: /usr/share/perl/5.8/Carp/Heavy.pm
  2218: /usr/share/perl/5.8/Exporter.pm
  3975: /usr/share/perl/5.8/base.pm
   599: /usr/share/perl/5.8/strict.pm
  1149: /usr/share/perl/5.8/vars.pm
 13018: /usr/share/perl/5.8/warnings.pm
   732: /usr/share/perl/5.8/warnings/register.pm
   101: Bar.pm
   101: Foo.pm
    63: Once.pm
    64: Twice.pm 

I don't know why my file sizes were so different on my Perl 5.8.8
installation. This looks more like Rick Delaney's output, but with
different behaviour.

-- 
Colin Robertson
Software Engineer, Vision (Factual & Learning)
BBC Future Media & Technology
2507, White City
T: 0208 752 7295

http://www.bbc.co.uk/
This e-mail (and any attachments) is confidential and may contain personal views which are not the views of the BBC unless specifically stated.
If you have received it in error, please delete it from your system.
Do not use, copy or disclose the information in any way nor act in reliance on it and notify the sender immediately.
Please note that the BBC monitors e-mails sent or received.
Further communication will signify your consent to this.
					

• [perl #42601] Inconsistent warning of redefined subroutines in Exporter by Colin Robertson
• Re: [perl #42601] Inconsistent warning of redefined subroutines in Exporter by Rafael Garcia-Suarez
• RE: [perl #42601] Inconsistent warning of redefined subroutines in Exporter by Colin Robertson
• Re: [perl #42601] Inconsistent warning of redefined subroutines in Exporter by Nicholas Clark
• Re: [perl #42601] Inconsistent warning of redefined subroutines in Exporter by Rick Delaney
• RE: [perl #42601] Inconsistent warning of redefined subroutines in Exporter by Colin Robertson
• Re: [perl #42601] Inconsistent warning of redefined subroutines in Exporter by Rick Delaney
• RE: [perl #42601] Inconsistent warning of redefined subroutines in Exporter by Colin Robertson
• RE: [perl #42601] Inconsistent warning of redefined subroutines in Exporter by Colin Robertson