[perl #24905] "Can't coerce GLOB to string in concat" but there is no glob :-(

# New Ticket Created by  Thomas Bayen 
# Please include the string:  [perl #24905]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=24905 >


This is a bug report for perl from tbayen@bayen.de,
generated with the help of perlbug 1.34 running under perl v5.8.2.


-----------------------------------------------------------------
I found a really strange bug in the perl core. I set the severity
to "high" because it is so strange. Who knows where this fault
would show himself the next time?!? Don't control your nuclear
power plant with this version of perl... :-)

I had the following error message in a script. I shortened the script
up to the point you see here. It does no more do anything useful but
it raises the error message. Just try it and tell me why I get this
message.

I am using perl from Debian testing (sarge) with no modifications.

It would be nice to hear from you if this was helpful. If not - just
get my thanks for the best and stablest language I ever used.
Stop - BASIC 2.0 on Commodore 64 was very stable too... :-)

Thomas Bayen

******************************************************
#!/usr/bin/perl
#use strict;
#use warnings;

my $debug=0;
my $tmpdir='tmp';
open FILE, ">$tmpdir/x";
close FILE;
if(1){
}else{
   map 1, (<*>);
}
local $/;
******************************************************

The error message:

******************************************************
tbayen@jupiter:~/Projekte/DurstHack$ perl test.pl
Can't coerce GLOB to string in concat at test.pl line 7.
tbayen@jupiter:~/Projekte/DurstHack$
******************************************************

-----------------------------------------------------------------
---
Flags:
     category=core
     severity=high
---
Site configuration information for perl v5.8.2:

Configured by Debian Project at Sat Nov 15 18:33:34 EST 2003.

Summary of my perl5 (revision 5.0 version 8 subversion 2) configuration:
   Platform:
     osname=linux, osvers=2.4.22-xfs+ti1211, 
archname=i386-linux-thread-multi
     uname='linux kosh 2.4.22-xfs+ti1211 #1 sat oct 25 10:11:37 est 2003 
i686 gnulinux '
     config_args='-Dusethreads -Duselargefiles -Dccflags=-DDEBIAN 
-Dcccdlflags=-fPIC -Darchname=i386-linux -Dprefix=/usr 
-Dprivlib=/usr/share/perl/5.8.2 -Darchlib=/usr/lib/perl/5.8.2 
-Dvendorprefix=/usr -Dvendorlib=/usr/share/perl5 
-Dvendorarch=/usr/lib/perl5 -Dsiteprefix=/usr/local 
-Dsitelib=/usr/local/share/perl/5.8.2 
-Dsitearch=/usr/local/lib/perl/5.8.2 -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.2 -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 -I/usr/local/include -D_LARGEFILE_SOURCE 
-D_FILE_OFFSET_BITS=64',
     optimize='-O3',
     cppflags='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBIAN 
-fno-strict-aliasing -I/usr/local/include'
     ccversion='', gccversion='3.3.2 (Debian)', 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, 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.2.so, so=so, useshrplib=true, 
libperl=libperl.so.5.8.2
     gnulibc_version='2.3.2'
   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.8.2:
     /etc/perl
     /usr/local/lib/perl/5.8.2
     /usr/local/share/perl/5.8.2
     /usr/lib/perl5
     /usr/share/perl5
     /usr/lib/perl/5.8.2
     /usr/share/perl/5.8.2
     /usr/local/lib/site_perl
     /usr/local/lib/perl/5.8.0
     /usr/local/share/perl/5.8.0
     .

---
Environment for perl v5.8.2:
     HOME=/home/tbayen
     LANG=de_DE@euro
     LANGUAGE (unset)
     LD_LIBRARY_PATH (unset)
     LOGDIR (unset)
     PATH=/bin:/usr/bin:/usr/X11R6/bin:/usr/local/bin
     PERL_BADLANG (unset)
     SHELL=/bin/bash

• [perl #24905] "Can't coerce GLOB to string in concat" but there is no glob :-( by Thomas Bayen
• Re: [perl #24905] "Can't coerce GLOB to string in concat" but there is no glob :-( by Elizabeth Mattijsen
• Re: [perl #24905] "Can't coerce GLOB to string in concat" but there is no glob :-( by Dave Mitchell