Perl / perl5

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

5.8.2 and error "corrupted regexp program" #7112

Closed p5pRT closed 12 years ago

p5pRT commented 20 years ago

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

Searchable as RT26847$

p5pRT commented 20 years ago

From merijnb@ms.com

Created by merijnb@piscs2.ms.com

One of our developers saw the following their log​:

Feb 17 05​:48​:00 piias259 ebt/blastmail/1.0/BulkMailerPersonalise[27923]​: 41099 debug MTA banner​: smtp-sink ESMTP Feb 17 05​:48​:00 piias259 ebt/blastmail/1.0/BulkMailerPersonalise[27923]​: 41100 debug 60s loadave for piias602​:8025=0 bytes/s (max=1250000) Feb 17 05​:48​:00 piias259 ebt/blastmail/1.0/BulkMailerPersonalise[27923]​: 41101 crit unable to send message​: corrupted regexp program at //ms/dist/perl5/PROJ/libnet/1.0901/lib/perl5/Net/Cmd.pm line 408. Feb 17 05​:48​:00 piias259 ebt/blastmail/1.0/BulkMailerPersonalise[27923]​: 41102 alert 1077014012​:1669​:piias259 - msg 1 - Ms Blastmail Testuser5461 \mchud@​ms\.com send failed​: unable to send message​: corrupted regexp program at //ms/dist/perl5/PROJ/libnet/1.0901/lib/perl5/Net/Cmd.pm line 408. Feb 17 05​:48​:00 piias259 ebt/blastmail/1.0/BulkMailerPersonalise[27923]​: 41103 debug person took 11 secs

The eval caught it\, so the program went on its merry way. This is 5.8.2 with Net​::Cmd from libnet 1.0901. Line 408 there reads

$line =~ s/\G()\n|([^\r\n])\n/$+\015\012/sgo;

In later versions of libnet this has been rewritten. We've seen this only once in the logs\, and now we are running with libnet 1.17\, so chances are it will not repeat itself.

Reporting this just to get this in the archives\, in case anyone in future hits it.

Perl Info ``` Flags: category=core severity=medium Site configuration information for perl v5.8.2: Configured by merijnb at Fri Nov 7 08:44:54 EST 2003. Summary of my perl5 (revision 5.0 version 8 subversion 2) configuration: Platform: osname=solaris, osvers=2.7, archname=sun4-solaris-thread-multi uname='sunos piscs2 5.7 generic_106541-20 sun4u sparc sunw,ultra-enterprise ' config_args='-Dcc=cc -Dusemymalloc=n -Duselargefiles -Ud_flock -des -Duseithreads -Ui_db -Ui_gdbm -Dafsroot=/ms -Darchlib=/ms/dist/perl5/PROJ/core/5.8.2/exec/lib/perl5 -Darchlibexp=/ms/dist/perl5/PROJ/core/5.8.2/exec/lib/perl5 -Dbin=/ms/dist/perl5/PROJ/core/5.8.2/exec/bin -Dbinexp=/ms/dist/perl5/PROJ/core/5.8.2/exec/bin -Dccflags=-DAPPLLIB_EXP="/ms/dist/perl5/VERS/5.8.2-core/lib/perl5:/ms/dist/perl5/VERS/5.8-core/lib/perl5" -Dinstallarchlib=/ms/dev/perl5/core/5.8.2/install/.exec/sun4.sunos.5.7/lib/perl5 -Dinstallbin=/ms/dev/perl5/core/5.8.2/install/.exec/sun4.sunos.5.7/bin -Dinstallman1dir=/ms/dev/perl5/core/5.8.2/install/.exec/sun4.sunos.5.7/man/man1 -Dinstallman3dir=/ms/dev/perl5/core/5.8.2/install/.exec/sun4.sunos.5.7/man/man3 -Dinstallprivlib=/ms/dev/perl5/core/5.8.2/install/.exec/sun4.sunos.5.7/lib/perl5 -Dinstallscript=/ms/dev/perl5/core/5.8.2/install/.exec/sun4.sunos.5.7/bin -Dinstallsitearch=/ms/dev/perl5/core/5.8.2/install/.exec/sun4.sunos.5.7/lib/perl5 -Dinstall sitelib=/ms/dev/perl5/core/5.8.2/install/.exec/sun4.sunos.5.7/lib/perl5 -Dman1dir=/ms/dist/perl5/PROJ/core/5.8.2/exec/man/man1 -Dman1direxp=/ms/dist/perl5/PROJ/core/5.8.2/exec/man/man1 -Dman3dir=/ms/dist/perl5/PROJ/core/5.8.2/exec/man/man3 -Dman3direxp=/ms/dist/perl5/PROJ/core/5.8.2/exec/man/man3 -Dpager=/ms/dist/fsf/bin/less -Dperladmin=perlcore@ms.com -Dperlpath=/ms/dist/perl5/PROJ/core/5.8.2/exec/bin/perl -Dprefix=/ms/dist/perl5 -Dprefixexp=/ms/dist/perl5 -Dprivlib=/ms/dist/perl5/PROJ/core/5.8.2/exec/lib/perl5 -Dprivlibexp=/ms/dist/perl5/PROJ/core/5.8.2/exec/lib/perl5 -Dscriptdir=/ms/dist/perl5/PROJ/core/5.8.2/exec/bin -Dscriptdirexp=/ms/dist/perl5/PROJ/core/5.8.2/exec/bin -Dstartperl=#!/ms/dist/perl5/PROJ/core/5.8.2/exec/bin/perl' 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 -DAPPLLIB_EXP="/ms/dist/perl5/VERS/5.8.2-core/lib/perl5:/ms/dist/perl5/VERS/5.8-core/lib/perl5" -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64', optimize='-O', cppflags='-D_REENTRANT -DAPPLLIB_EXP="/ms/dist/perl5/VERS/5.8.2-core/lib/perl5:/ms/dist/perl5/VERS/5.8-core/lib/perl5" -I/usr/local/include' ccversion='WorkShop Compilers 5.0 98/12/15 C 5.0', gccversion='', gccosandvers='' intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=4321 d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16 ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8 alignbytes=8, prototype=define Linker and Libraries: ld='cc', ldflags =' -L/usr/lib -L/usr/ccs/lib -L/opt/SUNWspro/SC5.0/lib -L/usr/local/lib ' libpth=/usr/lib /usr/ccs/lib /opt/SUNWspro/SC5.0/lib /usr/local/lib libs=-lsocket -lnsl -ldb -ldl -lm -lpthread -lc perllibs=-lsocket -lnsl -ldl -lm -lpthread -lc libc=/lib/libc.so, so=so, useshrplib=false, libperl=libperl.a gnulibc_version='' Dynamic Linking: dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' ' cccdlflags='-KPIC', lddlflags='-G -L/usr/lib -L/usr/ccs/lib -L/opt/SUNWspro/SC5.0/lib -L/usr/local/lib' Locally applied patches: @INC for perl v5.8.2: /ms/dist/perl5/VERS/5.8.2-core/lib/perl5 /ms/dist/perl5/VERS/5.8-core/lib/perl5 /ms/dist/perl5/PROJ/core/5.8.2/exec/lib/perl5 . Environment for perl v5.8.2: HOME=/ms/user/m/merijnb LANG=C LANGUAGE (unset) LC_ALL=C LD_LIBRARY_PATH (unset) LOGDIR (unset) PATH=/ms/user/m/merijnb/local/bin:/ms/dist/perl5/PROJ/core/5.6/exec/bin:/ms/dist/afs/PROJ/vms/beta/common/bin:/ms/dist/afs/PROJ/vms/beta/common/sbin:/ms/dist/msde/PROJ/msde/1.7/bin:/ms/user/m/merijnb/bin:/ms/dist/aurora/bin:/usr/local/bin:/usr/bin:/bin:/usr/ccs/bin:/usr/ucb:/ms/dist/perl5/bin:/ms/dist/fsf/bin:/ms/dist/afs/bin:/ms/dist/aurora/sbin:/usr/sbin:/sbin:/usr/etc:/ms/dist/afs/sbin:.:/usr/dt/bin:/etc/dt/tbin:/ms/dist/sunos.5.5/VERS/4.6.1/openwin/bin:/usr/openwin/bin PERL_BADLANG (unset) SHELL=/bin/ksh ```
p5pRT commented 20 years ago

From @nwc10

On Wed\, Feb 18\, 2004 at 05​:01​:51PM -0000\, merijnb@​ms.com (via RT) wrote​:

Reporting this just to get this in the archives\, in case anyone in future hits it.

Thanks.

Replying just to stop Robert's report saying that it wasn't responded to :-)

Oh. Wait. I said thanks too. D'oh! :-)

Nicholas Clark

p5pRT commented 20 years ago

The RT System itself - Status changed from 'new' to 'open'

p5pRT commented 12 years ago

@Hugmeir - Status changed from 'open' to 'resolved'