[perl #27380] (;$) prototype doesn't parse the same as CORE::length
Lukas Mai
# Please include the string: [perl #27380]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org:80/rt3/Ticket/Display.html?id=27380 >
This is a bug report for perl from lm...@mytum.de,
generated with the help of perlbug 1.34 running under perl v5.8.3.
-----------------------------------------------------------------
[Please enter your report here]
Good morning!
$ perl -wle 'print prototype "CORE::length"'
;$
$ perl -wle 'print length "a", "b"'
1b
$ perl -wle 'sub xlength (;$) {} print xlength "a", "b"'
Too many arguments for main::xlength at -e line 1, at EOF
This makes overriding length() impossible.
HTH,
Lukas Mai
[Please do not change anything below this line]
-----------------------------------------------------------------
---
Flags:
category=core
severity=low
---
Site configuration information for perl v5.8.3:
Configured by mai at Sat Feb 21 14:55:36 MET 2004.
Summary of my perl5 (revision 5.0 version 8 subversion 3) configuration:
Platform:
osname=solaris, osvers=2.9, archname=sun4-solaris-64int
uname='sunos sunhalle69 5.9 generic_112233-11 sun4u sparc sunw,ultra-5_10 '
config_args=''
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=define use64bitall=undef uselongdouble=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='gcc', ccflags ='-fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
optimize='-O3',
cppflags='-fno-strict-aliasing -I/usr/local/include'
ccversion='', gccversion='3.2.2', gccosandvers='solaris2.8'
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=87654321
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
ivtype='long long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
alignbytes=8, prototype=define
Linker and Libraries:
ld='gcc', ldflags =' -L/usr/local/lib '
libpth=/usr/local/lib /usr/lib /usr/ccs/lib
libs=-lsocket -lnsl -ldl -lm -lc
perllibs=-lsocket -lnsl -ldl -lm -lc
libc=, so=so, useshrplib=false, libperl=libperl.a
gnulibc_version=''
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' -Wl,-E'
cccdlflags='-fPIC', lddlflags=' -Wl,-E -G -L/usr/local/lib'
Locally applied patches:
---
@INC for perl v5.8.3:
/u/halle/mai/home_sun/usr/local/lib/perl5/5.8.3/sun4-solaris-64int
/u/halle/mai/home_sun/usr/local/lib/perl5/5.8.3
/u/halle/mai/home_sun/usr/local/lib/perl5/site_perl/5.8.3/sun4-solaris-64int
/u/halle/mai/home_sun/usr/local/lib/perl5/site_perl/5.8.3
/u/halle/mai/home_sun/usr/local/lib/perl5/site_perl/5.8.2/sun4-solaris-64int
/u/halle/mai/home_sun/usr/local/lib/perl5/site_perl/5.8.2
/u/halle/mai/home_sun/usr/local/lib/perl5/site_perl/5.8.1/sun4-solaris-64int
/u/halle/mai/home_sun/usr/local/lib/perl5/site_perl/5.8.1
/u/halle/mai/home_sun/usr/local/lib/perl5/site_perl
.
---
Environment for perl v5.8.3:
HOME=/u/halle/mai/home_sun
LANG (unset)
LANGUAGE (unset)
LD_LIBRARY_PATH=/u/halle/mai/home_sun/usr/local/lib
LOGDIR (unset)
PATH=/u/halle/mai/home_sun/usr/local/bin:/usr/local/bin:/usr/dt/bin:/usr/openwin/bin:/usr/bin:/opt/SUNWspro/bin:/usr/ccs/bin:/usr/xpg4/bin:/usr/local/dist/bin:/usr/ucb
PERL_BADLANG (unset)
SHELL=/bin/bash