Date: Tue, 19 Jul 2005 21:03:09 +0400 From: Pavel A Crasotin <pavel@ctk.ru> To: stable@freebsd.org Subject: Perl 5.8.7 dumps core on quotewords Message-ID: <81030364.20050719210309@ctk.ru>
index | next in thread | raw e-mail
[-- Attachment #1 --]
Hello -
I've just installed perl5.8.7 and now my cricket 1.0.5 does not work
correctly.
Perl abnormally exits with 'Bus error' message and throws core.
After little investigation I have found out the problem is in
Text::ParseWords::quotewords procedure.
Test perl script which produces error is attached.
If it's neccesary i will send the core file of perl.
It dumps core with
# perl -V
Summary of my perl5 (revision 5 version 8 subversion 7) configuration:
Platform:
osname=freebsd, osvers=5.4-stable, archname=i386-freebsd-64int
uname='freebsd zeus.nordnet.ru 5.4-stable freebsd 5.4-stable #1: sat may 14 12:26:53 msd 2005 root@zeus.nordnet.ru:usrobjusrsrcsyszeus i386 '
config_args='-sde -Dprefix=/usr/local -Darchlib=/usr/local/lib/perl5/5.8.7/mach -Dprivlib=/usr/local/lib/perl5/5.8.7 -Dman3dir=/usr/local/lib/perl5/5.8.7/perl/man/man3 -Dman1dir=/usr/local/man/man1 -Dsitearch=/usr/local/lib/perl5/site_perl/5.8.7/mach -Dsitelib=/usr/local/lib/perl5/site_perl/5.8.7 -Dscriptdir=/usr/local/bin -Dsiteman3dir=/usr/local/lib/perl5/5.8.7/man/man3 -Dsiteman1dir=/usr/local/man/man1 -Ui_malloc -Ui_iconv -Uinstallusrbinperl -Dcc=cc -Duseshrplib -Dccflags=-DAPPLLIB_EXP="/usr/local/lib/perl5/5.8.7/BSDPAN" -Doptimize=-O -pipe -march=pentiumpro -Ud_dosuid -Ui_gdbm -Dusethreads=n -Dusemymalloc=y -Duse64bitint'
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=y, bincompat5005=undef
Compiler:
cc='cc', ccflags ='-DAPPLLIB_EXP="/usr/local/lib/perl5/5.8.7/BSDPAN" -DHAS_FPSETMASK -DHAS_FLOATINGPOINT_H -fno-strict-aliasing -pipe -I/usr/local/include',
optimize='-O -pipe -march=pentiumpro',
cppflags='-DAPPLLIB_EXP="/usr/local/lib/perl5/5.8.7/BSDPAN" -DHAS_FPSETMASK -DHAS_FLOATINGPOINT_H -fno-strict-aliasing -pipe -I/usr/local/include'
ccversion='', gccversion='3.4.2 [FreeBSD] 20040728', gccosandvers=''
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=12345678
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
ivtype='long long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
alignbytes=4, prototype=define
Linker and Libraries:
ld='cc', ldflags ='-pthread -Wl,-E -L/usr/local/lib'
libpth=/usr/lib /usr/local/lib
libs=-lm -lcrypt -lutil
perllibs=-lm -lcrypt -lutil
libc=, so=so, useshrplib=true, libperl=libperl.so
gnulibc_version=''
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' -Wl,-R/usr/local/lib/perl5/5.8.7/mach/CORE'
cccdlflags='-DPIC -fPIC', lddlflags='-shared -L/usr/local/lib'
Characteristics of this binary (from libperl):
Compile-time options: USE_64_BIT_INT USE_LARGE_FILES
Locally applied patches:
defined-or
Built under freebsd
Compiled at Jul 19 2005 10:23:40
@INC:
/usr/local/lib/perl5/site_perl/5.8.7/mach
/usr/local/lib/perl5/site_perl/5.8.7
/usr/local/lib/perl5/site_perl/5.8.6
/usr/local/lib/perl5/site_perl
/usr/local/lib/perl5/5.8.7/BSDPAN
/usr/local/lib/perl5/5.8.7/mach
/usr/local/lib/perl5/5.8.7
.
But works good with
# perl -V
Summary of my perl5 (revision 5 version 8 subversion 6) configuration:
Platform:
osname=freebsd, osvers=5.4-release, archname=i386-freebsd-64int
uname='freebsd freebsd.org 5.4-release freebsd 5.4-release #0: sun apr 3 15:13:31 pdt 2005 kris@freebsd.org:usrsrcsysmagickernelpath i386 '
config_args='-sde -Dprefix=/usr/local -Darchlib=/usr/local/lib/perl5/5.8.6/mach -Dprivlib=/usr/local/lib/perl5/5.8.6 -Dman3dir=/usr/local/lib/perl5/5.8.6/perl/man/man3 -Dman1dir=/usr/local/man/man1 -Dsitearch=/usr/local/lib/perl5/site_perl/5.8.6/mach -Dsitelib=/usr/local/lib/perl5/site_perl/5.8.6 -Dscriptdir=/usr/local/bin -Dsiteman3dir=/usr/local/lib/perl5/5.8.6/man/man3 -Dsiteman1dir=/usr/local/man/man1 -Ui_malloc -Ui_iconv -Uinstallusrbinperl -Dcc=cc -Doptimize=-O -pipe -Duseshrplib -Dccflags=-DAPPLLIB_EXP="/usr/local/lib/perl5/5.8.6/BSDPAN" -Ud_dosuid -Ui_gdbm -Dusethreads=n -Dusemymalloc=y -Duse64bitint'
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=y, bincompat5005=undef
Compiler:
cc='cc', ccflags ='-DAPPLLIB_EXP="/usr/local/lib/perl5/5.8.6/BSDPAN" -DHAS_FPSETMASK -DHAS_FLOATINGPOINT_H -fno-strict-aliasing -pipe -I/usr/local/include',
optimize='-O -pipe ',
cppflags='-DAPPLLIB_EXP="/usr/local/lib/perl5/5.8.6/BSDPAN" -DHAS_FPSETMASK -DHAS_FLOATINGPOINT_H -fno-strict-aliasing -pipe -I/usr/local/include'
ccversion='', gccversion='3.4.2 [FreeBSD] 20040728', gccosandvers=''
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=12345678
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
ivtype='long long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
alignbytes=4, prototype=define
Linker and Libraries:
ld='cc', ldflags =' -Wl,-E -L/usr/local/lib'
libpth=/usr/lib /usr/local/lib
libs=-lm -lcrypt -lutil
perllibs=-lm -lcrypt -lutil
libc=, so=so, useshrplib=true, libperl=libperl.so
gnulibc_version=''
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' -Wl,-R/usr/local/lib/perl5/5.8.6/mach/CORE'
cccdlflags='-DPIC -fPIC', lddlflags='-shared -L/usr/local/lib'
Characteristics of this binary (from libperl):
Compile-time options: USE_64_BIT_INT USE_LARGE_FILES
Locally applied patches:
SUIDPERLIO0 - fix PERLIO_DEBUG local root exploit (CAN-2005-0155)
SUIDPERLIO1 - fix PERLIO_DEBUG buffer overflow (CAN-2005-0156)
Built under freebsd
Compiled at Apr 3 2005 22:17:29
@INC:
/usr/local/lib/perl5/site_perl/5.8.6/mach
/usr/local/lib/perl5/site_perl/5.8.6
/usr/local/lib/perl5/site_perl
/usr/local/lib/perl5/5.8.6/BSDPAN
/usr/local/lib/perl5/5.8.6/mach
/usr/local/lib/perl5/5.8.6
.
Can anyone help me fix this problem?
--
With respect,
Pavel A Crasotin
OJSC SeverTransCom
Tel: +7 (0852) 58-41-03, 58-01-01
Fax: +7 (0852) 58-01-01
[-- Attachment #2 --]
#!/usr/bin/perl
use strict;
use Text::ParseWords;
my $test_string = <<EOT;
target all
targets = "/routers/links/n41-r1-fastethernet0-1-806-802-1q;
/routers/links/n41-r1-fastethernet0-1-918-802-1q;
/routers/links/n41-r1-fastethernet0-1-804-802-1q;
/routers/links/n41-r1-fastethernet0-1-616-802-1q;
/routers/links/n41-r1-fastethernet0-1-704-802-1q;
/routers/links/n41-r1-fastethernet0-1-916-802-1q;
/routers/links/n41-r1-fastethernet0-1-439-802-1q;
/routers/links/n41-r1-fastethernet0-1-919-802-1q;
/routers/links/n41-r1-fastethernet0-1-801-802-1q;
/routers/links/n41-r1-fastethernet0-1-802-802-1q;
/routers/links/n41-r1-fastethernet0-1-444-802-1q;
/routers/links/n41-r1-fastethernet0-1-914-802-1q;
/routers/links/n41-r1-fastethernet0-1-810-802-1q;
/routers/links/n41-r1-fastethernet0-1-435-802-1q;
/routers/links/n41-r1-fastethernet0-1-622-802-1q;
/routers/links/n41-r1-fastethernet0-1-807-802-1q;
/routers/links/n41-r1-fastethernet0-1-422-802-1q;
/routers/links/n41-r1-fastethernet0-1-915-802-1q;
/routers/links/n41-r1-fastethernet0-1-412-802-1q;
/routers/links/n41-r1-fastethernet0-1-419-802-1q;
/routers/links/n41-r1-fastethernet0-1-437-802-1q;
/routers/links/n41-r1-fastethernet0-1-424-802-1q;
/routers/links/n41-r1-fastethernet0-1-415-802-1q;
/routers/links/n41-r1-fastethernet0-1-808-802-1q;
/routers/links/n41-r1-fastethernet0-1-905-802-1q;
/routers/links/n41-r1-fastethernet0-1-427-802-1q;
/routers/links/n41-r1-fastethernet0-1-432-802-1q;
/routers/links/n41-r1-fastethernet0-1-902-802-1q;
/routers/links/n41-r1-fastethernet0-1-911-802-1q;
/routers/links/n41-r1-fastethernet0-1-420-802-1q;
/routers/links/n41-r1-fastethernet0-1-805-802-1q;
/routers/links/n41-r1-fastethernet0-1-619-802-1q;
/routers/links/n41-r1-fastethernet0-1-442-802-1q;
/routers/links/n41-r1-fastethernet0-1-410-802-1q;
/routers/links/n41-r1-fastethernet0-1-809-802-1q;
/routers/links/n41-r1-fastethernet0-1-917-802-1q;
/routers/links/n41-r1-fastethernet0-1-912-802-1q;
/routers/links/n41-r1-fastethernet0-1-441-802-1q;
/routers/links/n41-r1-fastethernet0-1-706-802-1q;
/routers/links/n41-r1-fastethernet0-1-617-802-1q;
/routers/links/n41-r1-fastethernet0-1-909-802-1q;
/routers/links/n41-r1-fastethernet0-1-703-802-1q;
/routers/links/n41-r1-fastethernet0-1-621-802-1q;
/routers/links/n41-r1-fastethernet0-1-431-802-1q;
/routers/links/n41-r1-fastethernet0-1-906-802-1q;
/routers/links/n41-r1-fastethernet0-1-901-802-1q;
/routers/links/n41-r1-fastethernet0-1-624-802-1q;
/routers/links/n41-r1-fastethernet0-1-614-802-1q;
/routers/links/n41-r1-fastethernet0-1-701-802-1q;
/routers/links/n41-r1-fastethernet0-1-440-802-1q;
/routers/links/n41-r1-fastethernet0-1-623-802-1q;
/routers/links/n41-r1-fastethernet0-1-438-802-1q;
/routers/links/n41-r1-fastethernet0-1-702-802-1q;
/routers/links/n41-r1-fastethernet0-1-907-802-1q;
/routers/links/n41-r1-fastethernet0-1-620-802-1q;
/routers/links/n41-r1-fastethernet0-1-612-802-1q;
/routers/links/n41-r1-fastethernet0-1-413-802-1q;
/routers/links/n41-r1-fastethernet0-1-625-802-1q;
/routers/links/n41-r1-fastethernet0-1-908-802-1q;
/routers/links/n41-r1-fastethernet0-1-904-802-1q;
/routers/links/n41-r1-fastethernet0-1-417-802-1q;
/routers/links/n41-r1-fastethernet0-1-615-802-1q;
/routers/links/n41-r1-fastethernet0-1-618-802-1q;
/routers/links/n41-r1-fastethernet0-1-423-802-1q;
/routers/links/n41-r1-fastethernet0-1-705-802-1q;
/routers/links/n41-r1-fastethernet0-1-421-802-1q;
/routers/links/n41-r1-fastethernet0-1-443-802-1q;
/routers/links/n41-r1-fastethernet0-1-913-802-1q;
/routers/links/n41-r1-fastethernet0-1-910-802-1q;
/routers/links/n41-r1-fastethernet0-1-436-802-1q"
EOT
my @words = ();
@words = quotewords('[\s=]+', 0, $test_string);
#print join(',',@words),"\n";
home |
help
Want to link to this message? Use this
URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?81030364.20050719210309>