p5pRT
commented
17 years ago From colin.robertson@bbc.co.uk
Getting bounces if I send with perlbug\, but that may be due to our mail server configuration\, so retrying manually:
This is a bug report for perl from colin.robertson@bbc.co.uk\, generated with the help of perlbug 1.35 running under perl v5.8.8.
There is an odd inconsistency in the behaviour of Exporter and the points at which it warns about redefining subroutines. Consider the following modules:
-- Foo.pm --
package Foo;
use base 'Exporter'; our @EXPORT_OK = qw( foobar );
sub foobar { print "Foo\n" };
1;
-- Bar.pm --
package Bar;
use base 'Exporter'; our @EXPORT_OK = qw( foobar );
sub foobar { print "Bar\n" };
1;
-- Once.pm --
package Once;
use Foo qw( foobar ); use Bar qw( foobar );
1;
-- Twice.pm --
package Twice;
use Foo qw( foobar ); use Bar qw( foobar );
1;
-- End --
Running "perl -we 'use Once;'" gives us no warnings\, but running "perl -we 'use Once; use Twice;'" gives us:
Subroutine Twice::foobar redefined at /usr/local/lib/perl5/5.8.7/Exporter.pm line 65. at Twice.pm line 4
Ideally\, there should have been a warning just when compiling Once.
This bug\, or at least something related to it\, was encountered in the wild with code that effectively did:
use File::Temp; use File::Slurp;
(with File::Temp version 0.16 and File::Slurp version 9999.11). This gives us the warning:
Subroutine File::Slurp::O_RDWR redefined at /usr/local/cps_perl5.8.7/site_perl/File/Slurp.pm line 7 Subroutine File::Slurp::O_CREAT redefined at /usr/local/cps_perl5.8.7/site_perl/File/Slurp.pm line 7 Subroutine File::Slurp::O_EXCL redefined at /usr/local/cps_perl5.8.7/site_perl/File/Slurp.pm line 7
On the other hand\, when the use statements are reversed\, there is no warning:
use File::Slurp; use File::Temp;
I think File::Slurp should actually be warning a lot\, regardless of anything else that happens\, because the following lines import a bunch of duplicated symbols:
use Fcntl qw( :DEFAULT ) ; use POSIX qw( :fcntl_h ) ;
It happens that File::Temp makes some use of O_RDWR\, O_CREAT and 0_EXCL\, which triggers the warning in File::Slurp.
Flags: category=library severity=low
Site configuration information for perl v5.8.8:
Configured by comand at Thu Mar 23 17:51:47 EST 2006.
Summary of my perl5 (revision 5 version 8 subversion 8) configuration: Platform: osname=solaris\, osvers=2.8\, archname=sun4-solaris-thread-multi uname='sunos ra 5.8 generic_117350-28 sun4u sparc sunw\,sun-blade-1000' config_args='' 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 -xO3 -xarch=v8 -xspace -xildoff -I/opt/csw/bdb43/include -I/opt/csw/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'\, optimize='-xO3 -xarch=v8 -xspace -xildoff'\, cppflags='-D_REENTRANT -xO3 -xarch=v8 -xspace -xildoff -I/opt/csw/bdb43/include -I/opt/csw/include' ccversion='Sun C 5.7 2005/01/07'\, gccversion=''\, gccosandvers='' intsize=4\, longsize=4\, ptrsize=4\, doublesize=8\, byteorder=4321 d_longlong=define\, longlongsize=8\, d_longdbl=define\, longdblsize=16 ivtype='long'\, ivsize=4\, nvtype='double'\, nvsize=8\, Off_t='off_t'\, lseeksize=8 alignbytes=8\, prototype=define Linker and Libraries: ld='cc'\, ldflags ='-xarch=v8 -L/opt/csw/bdb43/lib -L/opt/csw/lib -L/usr/lib -L/usr/ccs/lib -L/lib' libpth=/usr/lib /usr/ccs/lib /lib /opt/csw/lib libs=-lsocket -lnsl -lgdbm -ldb-4.3 -ldl -lm -lpthread -lc perllibs=-lsocket -lnsl -ldb-4.3 -ldl -lm -lpthread -lc libc=/lib/libc.so\, so=so\, useshrplib=true\, libperl=libperl.so.5.8.8 gnulibc_version='' Dynamic Linking: dlsrc=dl_dlopen.xs\, dlext=so\, d_dlsymun=undef\, ccdlflags='-R /opt/csw/lib' cccdlflags='-KPIC'\, lddlflags='-G -L/opt/csw/bdb43/lib -L/opt/csw/lib -L/usr/lib -L/usr/ccs/lib -L/lib'
Locally applied patches:
@INC for perl v5.8.8: /home/colinr/lib /home/system/cgi-bin/lib /home/system/cgi-bin/lib/sun4-solaris /opt/csw/lib/perl/5.8.8 /opt/csw/share/perl/5.8.8 /opt/csw/lib/perl/site_perl /opt/csw/share/perl/site_perl /opt/csw/share/perl/site_perl /opt/csw/lib/perl/csw /opt/csw/share/perl/csw /opt/csw/share/perl/csw .
Environment for perl v5.8.8: HOME=/home/colinr LANG (unset) LANGUAGE (unset) LD_LIBRARY_PATH (unset) LOGDIR (unset)
PATH=/home/colinr/bin:/home/system/scripts/devtools:/opt/csw/gcc3/bin:/u sr/local/bin:/opt/csw/bin:/usr/sfw/bin:/usr/bin:/usr/ccs/bin:/usr/local/ scripts:/usr/ucb:/u01/app/oracle/product/9.2.0.1.0/bin:/u01/app/oracle/p roduct/9.2.0.1.0/xsql/bin:/usr/openwin/bin:/usr/local/cps_perl5.6.1/bin: /opt/xml-xalan/c/bin:/usr/local/mysql/bin
PERL5LIB=/home/colinr/lib:/home/system/cgi-bin/lib:/home/system/cgi-bin/ lib/sun4-solaris PERL_BADLANG (unset) SHELL=/usr/bin/bash
-- 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.
Migrated from rt.perl.org#42601 (status was 'rejected')
Searchable as RT42601$