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

[perl #23818] package X can say 'use X;'

Thread Next
From:
Sreeji
Date:
September 16, 2003 17:02
Subject:
[perl #23818] package X can say 'use X;'
Message ID:
rt-23818-64617.7.84343359507105@rt.perl.org
# New Ticket Created by  Sreeji 
# Please include the string:  [perl #23818]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=23818 >


This is a bug report for perl from sreeji_k@yahoo.com,
generated with the help of perlbug 1.34 running under
perl v5.6.1.


-----------------------------------------------------------------
[Please enter your report here]
% cat A.pm
package A;

use A;
1;

% perl -cw A.pm
A.pm syntax OK

I was thinking that the above should produce a
warning.
Atleast it does not look meaningful.

Since the above does not make sense, it's possible
that the user
wanted something else - may be he/she wanted to say
'use B;'
A warning here would be useful.
- any thoughts ? Does this unused 'use' incur any
overhead ?

(Checked with 5.6.1 and 5.8.0 - same result)

Please do not change anything below this line]
-----------------------------------------------------------------
---
Flags:
    category=core
    severity=medium
---
This perlbug was built using Perl v5.8.0 - Tue May 27
16:29:31 PDT 2003
It is being executed now by  Perl v5.6.1 - Fri Sep 20
15:19:16 PDT 2002.

Site configuration information for perl v5.6.1:

Configured by user at Fri Sep 20 15:19:16 PDT 2002.

Summary of my perl5 (revision 5.0 version 6 subversion
1) configuration:
  Platform:
    osname=linux, osvers=2.4.9-12custom,
archname=i686-linux
    uname='linux testsrv 2.4.9-12custom #1 smp wed feb
6 13:55:56 pst 2002 i686 unknown '
    config_args='-de -Dprefix=/pdev
-Dmake=/usr/bin/make -Dbin=/pdev/bin/
-Uinstallusrbinperl -Dstartperl=#!/pdev/bin/perl
-Dscriptdir=/pdev/arch/share/bin -Dsitebin=/pdev/bin'

hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef use5005threads=undef
useithreads=undef usemultiplicity=undef
    useperlio=undef d_sfio=undef uselargefiles=define
usesocks=undef
    use64bitint=undef use64bitall=undef
uselongdouble=undef
  Compiler:
    cc='cc', ccflags ='-fno-strict-aliasing
-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
    optimize='-O2',
    cppflags='-fno-strict-aliasing'
    ccversion='', gccversion='2.96 20000731 (Red Hat
Linux 7.1 2.96-85)', 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, usemymalloc=n, prototype=define
  Linker and Libraries:
    ld='cc', ldflags =' -L/usr/local/lib'
    libpth=/usr/local/lib /lib /usr/lib
    libs=-lnsl -lndbm -lgdbm -ldl -lm -lc -lcrypt
-lutil
    perllibs=-lnsl -ldl -lm -lc -lcrypt -lutil
    libc=/lib/libc-2.2.2.so, so=so, useshrplib=false,
libperl=libperl.a
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef,
ccdlflags='-rdynamic'
    cccdlflags='-fpic', lddlflags='-shared
-L/usr/local/lib'

Locally applied patches:


---
@INC for perl v5.6.1:
    /pdev/lib/perl5/5.6.1/i686-linux
    /pdev/lib/perl5/5.6.1
    /pdev/lib/perl5/site_perl/5.6.1/i686-linux
    /pdev/lib/perl5/site_perl/5.6.1
    /pdev/lib/perl5/site_perl
    .

---
Environment for perl v5.6.1:
HOME=/home/srdas
    LANG (unset)
    LANGUAGE (unset)
   
LD_LIBRARY_PATH=/pdev/oracle/9.2.0.3/lib:/pdev/lib:/usr/openwin/lib
    LOGDIR (unset)
   
PATH=/usr/bin:/bin:.:/pdev/bin:/pdev/tools/bin:/pdev/triggers:/pdev/oracle/9.2.0.3/bin:/usr/local/bin:/bin:/sbin:/usr/bin:/usr/sbin:/usr/ccs/bin:/usr/proc/bin:/usr/openwin/bin:/opt/SUNWspro/bin:/usr/ucb:/usr/atria/bin:/usr/bin/X11
    PERL_BADLANG (unset)
    SHELL=/usr/local/bin/tcsh



________________________________________________________________________
Want to chat instantly with your online friends?  Get the FREE Yahoo!
Messenger http://mail.messenger.yahoo.co.uk


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