search

Perl / perl5

🐪 The Perl programming language
https://dev.perl.org/perl5/
Other
1.96k stars 555 forks source link

strange warning when printing concatenated strings #3693

Closed p5pRT closed 20 years ago

p5pRT commented 23 years ago

Migrated from rt.perl.org#6380 (status was 'resolved')

Searchable as RT6380$

p5pRT commented 23 years ago

From txb@maple.min.ov.com

-----------------------------------------------------------------

Example 1​:

print (" ".   " ");

Emits a warning "print (...) interpreted as function at print_bug line 38

while

Example 2​:

print " ".   " ";

works just fine.

Any reason why example one cerates a warning and example two does not?

Perl Info ``` Flags: category=core severity=low Site configuration information for perl v5.6.0: Configured by pixel at Fri Mar 31 16:32:49 CEST 2000. Summary of my perl5 (revision 5.0 version 6 subversion 0) configuration: Platform: osname=linux, osvers=2.2.15-0.16mdksmp, archname=i386-linux uname='linux kenobi.mandrakesoft.com 2.2.15-0.16mdksmp #1 smp mon mar 13 16:40:10 cet 2000 i686 unknown ' config_args='-des -Dprefix=/usr -Darchname=i386-linux -Dd_dosuid -Dd_semctl_semun -Di_db -Di_ndbm -Di_gdbm -Ud_csh -Dman3dir=/usr/lib/perl5/man/man3 -Doptimize=-O3 -fomit-frame-pointer -fno-exceptions -fno-rtti -pipe -s -mpentium -mcpu=pentium -march=pentium -ffast-math -fexpensive-optimizations' hint=recommended, useposix=true, d_sigaction=define usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef useperlio=undef d_sfio=undef uselargefiles=define use64bitint=undef use64bitall=undef uselongdouble=undef usesocks=undef Compiler: cc='cc', optimize='-O3 -fomit-frame-pointer -fno-exceptions -fno-rtti -pipe -s -mpentium -mcpu=pentium -march=pentium -ffast-math -fexpensive-optimizations', gccversion=2.95.3 19991030 (prerelease) cppflags='-fno-strict-aliasing' ccflags ='-fno-strict-aliasing -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64' stdchar='char', d_stdstdio=define, usevfork=false intsize=4, longsize=4, ptrsize=4, doublesize=8 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 -ldl -lm -lc -lposix -lcrypt libc=/lib/libc-2.1.3.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.0: /usr/lib/perl5/5.6.0/i386-linux /usr/lib/perl5/5.6.0 /usr/lib/perl5/site_perl/5.6.0/i386-linux /usr/lib/perl5/site_perl/5.6.0 /usr/lib/perl5/site_perl/5.005 /usr/lib/perl5/site_perl . Environment for perl v5.6.0: HOME=/home/txb LANG=en LANGUAGE=en_US:en LC_COLLATE=en LC_CTYPE=en LC_MESSAGES=en LC_MONETARY=en LC_NUMERIC=en LC_TIME=en LD_LIBRARY_PATH (unset) LOGDIR (unset) PATH=/usr/local/bin:/usr/local/bin:/usr/bin:/bin:/etc:/usr/ccs/bin:/usr/sbin:/net/zebra/apps/local/perl/bin:/usr/openv/hsm/bin:/usr/openv/volmgr/bin:/usr/openv/netbackup/bin:/home/txb/bin:/ovsrc/int/tools/bin:/home/txb:/usr/openv/java:/opt/microsoft/bin:/opt/SUNWspro/bin:/usr/opt/SUNWmd/sbin:/usr/ucb:/source/qt-1.44/src/moc:/usr/openwin/bin:/usr/local/GNU:/opt/GCC295/bin:/opt/gnome/bin:/opt/kde/bin:/usr/ccs/bin:/usr/X11R6/bin:/home/txb:. PERL_BADLANG (unset) SHELL=/bin/csh ```