Front page | perl.perl5.porters |
Postings from November 1999
Re: [ID 19991116.002] perl5.005_02: my_setenv() and Term::ReadLine::Gnu
From:
Joerg Schumacher
Date:
November 19, 1999 12:22
Subject:
Re: [ID 19991116.002] perl5.005_02: my_setenv() and Term::ReadLine::Gnu
Message ID:
199911192022.VAA28708@aunt.gaertner.de
Hi!
> <--- my_setenv() problem --->
>
> Maybe I should have piped in before, but I think someone else has
> mentioned it : The whole my_setenv / putenv setup was modified somewhat
> between 5.00503 and the current devcut due to a bug I reported about a
> year ago. Thus, you should do the bugreport, testing and patching against
> the latest devcut. Not 5.00503.
OK. I did the tests using the appended extension module against
perl5.00562 on a linux box with nearly same results:
o Dumps core if perl has been compiled with usemymalloc=n
o Warns about "Bad free() ignored" if perl has been compiled
with usemymalloc=y
o The tests on solaris 5.5.1 dump core with both settings.
Joerg
#!/bin/sh
# This is a shell archive (produced by GNU sharutils 4.2).
# To extract the files from this archive, save it to some FILE, remove
# everything before the `!/bin/sh' line above, then type `sh FILE'.
#
# Made on 1999-11-19 20:43 MET by <schuma@aunt>.
# Source directory was `/tmp/src/free-bug'.
#
# Existing files will *not* be overwritten unless `-c' is specified.
#
# This shar contains:
# length mode name
# ------ ---------- ------------------------------------------
# 1445 -rw-rw-r-- environbug-0.01.tar.gz
# 1510 -rw-rw-r-- perl-conf-with-perlmalloc
# 1510 -rw-rw-r-- perl-conf-without-perlmalloc
#
save_IFS="${IFS}"
IFS="${IFS}:"
gettext_dir=FAILED
locale_dir=FAILED
first_param="$1"
for dir in $PATH
do
if test "$gettext_dir" = FAILED && test -f $dir/gettext \
&& ($dir/gettext --version >/dev/null 2>&1)
then
set `$dir/gettext --version 2>&1`
if test "$3" = GNU
then
gettext_dir=$dir
fi
fi
if test "$locale_dir" = FAILED && test -f $dir/shar \
&& ($dir/shar --print-text-domain-dir >/dev/null 2>&1)
then
locale_dir=`$dir/shar --print-text-domain-dir`
fi
done
IFS="$save_IFS"
if test "$locale_dir" = FAILED || test "$gettext_dir" = FAILED
then
echo=echo
else
TEXTDOMAINDIR=$locale_dir
export TEXTDOMAINDIR
TEXTDOMAIN=sharutils
export TEXTDOMAIN
echo="$gettext_dir/gettext -s"
fi
touch -am 1231235999 $$.touch >/dev/null 2>&1
if test ! -f 1231235999 && test -f $$.touch; then
shar_touch=touch
else
shar_touch=:
echo
$echo 'WARNING: not restoring timestamps. Consider getting and'
$echo "installing GNU \`touch', distributed in GNU File Utilities..."
echo
fi
rm -f 1231235999 $$.touch
#
if mkdir _sh10058; then
$echo 'x -' 'creating lock directory'
else
$echo 'failed to create lock directory'
exit 1
fi
# ============= environbug-0.01.tar.gz ==============
if test -f 'environbug-0.01.tar.gz' && test "$first_param" != -c; then
$echo 'x -' SKIPPING 'environbug-0.01.tar.gz' '(file already exists)'
else
$echo 'x -' extracting 'environbug-0.01.tar.gz' '(binary)'
sed 's/^X//' << 'SHAR_EOF' | uudecode &&
begin 600 environbug-0.01.tar.gz
M'XL("!*G-3@"`V5N=FER;VYB=6<M,"XP,2YT87(`[5AM;]LV$/97\U<<E&RV
MBTZQ_`HD2U<GT;I@B6.D2=H/!5Q9HFPA$JE25%PCRW_?G23'3M>UVY!X1:$#
MC$1WY/%X1]X]1RYN`B7%))W^U#2;UD[E"0@ZS7ZW"Q4`L'J=_&\G_UM0$Z#?
MM+KM5KO3:J&TU>[U*]"M;(#21#L*H)*XLS1ROC2.JZ3RW1'_)/ZK;_/C8VW7
M:C9[1;P_&_]NOU/$O]EJMKHH[;::S0HTR_@_.6T%OL=]&(_=.$P3^C'^47,E
MP#@TX)9M<>$%/ML*A!NF'@?#?GMAGP_-F;'&B[D*'W+>OKX\R#E_47^WU+D:
M_G.BO4":LQ=K+*Z4R%A$IV='ER<V[,/J>-[GCM'@\/?!JX="QFYDX+$\IN,X
MU2BJ-UCU\.S(W@5VRZKN#*/^S(WW&/X?X^3("4/IUO&L-O98-8E5(+0/=3=^
M#L;(/C^QAU<'EZ_V.RV#Y`&*"K5NW&@`>D!)53=R'@UAU5S%D@=)ZKH\2?PT
M?"=HP!W[%N__J7/-_2#DYNCDT=;XVOVW^D7^MS#[=WJ9U.J7]W\SV^=@?]27
M.@B3W5V*/OW4'MN^XFHB4;H/%I[F-RK0?'DXZJQ:&PY.[5JUNO\":JLS5'N.
MDBO[_/7QV7#\Z_G9:>V3`68<X1@\_962OLGZ?VX/CD[MQUWC*_??LJSVLOY;
M_>S^M]N=;GG_-T$7LR"!V'&OG2D'CT=2)%HYFB?@4%$+@4JMXB&R/-`2](PO
MZVS$A3;9!3+\5+@ZP*D0+<8)SZLM.,*#$:H81\XT<,=NR!TUQBH[SL61LP`7
M/X'YBG-D2`$1&J`6(*2&K!QGJ]X$SK(Z-TP`QC*;9TX<<UP1*W$B(YX;2]!%
M)`%IDEX:<G`5+S8C^'S=<';CJ,"9X!!2OT0(,)\%[@P"`3I5N$1"6T:H(-`Y
MM/-I*"=."/=S63X1K<J6]R0N1>-\B>;.`S'%R=R])BT>ND5%@>!D<:`SY4Z(
MYGD+8*Z,`_+O0^?N,I9=$`(;!1OV]V%T,I8JF!:<!MQ6=Y[A]G#^'#<LX\6Z
MCE\`GNT4+D-':/`=S/2XLI[)=#K+[29;R.>?-P-WAT%FJST5\9H'&#POC6*<
MI[A9IO3OK/^+HPWAOW9GF?\1`/;ZU/]9O1+_;826J7\5=P1[BG](`T7`,)9*
M$QI<<HX6PCF1CD<\@HZ8"1/X,*^_/'X]@)?VV]'9^05L%P@085[&WZ<12UUK
M*DA>3,F&%&D8&H0^<Q4H,.A<&FA5DDZ6(V[AQP>]'=PQ-I%24^V*'^S%*J'F
MO[K_^@E>`/_#^U^OW2K?__Z?^-]#.%-O"/^W^JU5_)O9^Y_5+M__-O/^!P?<
M1_@&[R-L[A'YHCO"L`;4%7"%DB@#A/B9N"J(-22(&T,/)AQ4*D2&@N>!GK&M
M0@.!S)H)`Y]R_:=*[Z?/I;H&1)WO,_Q)<\PXK#&V]7<$;SA0I'2V6@[Y)R$6
M+\BZ"T+8V7L;=1$$<5-"I&C480[>+=.TT&8$L#02OT(GT6-:=ZSE.)]IXO#Z
ML<X:DPEW:04,NI^&!,`)$V?X&3T1R9N\&3)W<$/IQ,/*Z&IL7,P&8P?VJ^,A
M%JCM/[*7D\(J@PQX)XP]K%3V\`AN"S:A;GD-)()4A#Q)8#NDXNCMW64%=KV6
M%9+\1:904$S>^Y+K;&S$I+_NKLPUQP*/M(:%Q%8GVYHK/5XXJ3[AF@*8]RK9
M6DF^6-L@-R'B5SR)I?"P(0@7JXVTC0:V.C'/!!0,<ESQ]$E&X"T3-`R5R#6O
MTM(-['=6V]W=739EN'%[>'4[&ES\=D=X8,>7TBC+^E/E_U1XW'^TW/^/\G_/
MNG__[?0H_R,*:)?YO\S_9?XO\S_F_RPEP0]8!<JT7U)))9544DF/0'\"::9"
%2``H```H
`
end
SHAR_EOF
$shar_touch -am 1119203799 'environbug-0.01.tar.gz' &&
chmod 0664 'environbug-0.01.tar.gz' ||
$echo 'restore of' 'environbug-0.01.tar.gz' 'failed'
if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
&& ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
md5sum -c << SHAR_EOF >/dev/null 2>&1 \
|| $echo 'environbug-0.01.tar.gz:' 'MD5 check failed'
763ebe00fa7558086e7bad80a0fab41c environbug-0.01.tar.gz
SHAR_EOF
else
shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'environbug-0.01.tar.gz'`"
test 1445 -eq "$shar_count" ||
$echo 'environbug-0.01.tar.gz:' 'original size' '1445,' 'current size' "$shar_count!"
fi
fi
# ============= perl-conf-with-perlmalloc ==============
if test -f 'perl-conf-with-perlmalloc' && test "$first_param" != -c; then
$echo 'x -' SKIPPING 'perl-conf-with-perlmalloc' '(file already exists)'
else
$echo 'x -' extracting 'perl-conf-with-perlmalloc' '(text)'
sed 's/^X//' << 'SHAR_EOF' > 'perl-conf-with-perlmalloc' &&
Summary of my perl5 (revision 5.0 version 5 subversion 62) configuration:
X Platform:
X osname=linux, osvers=2.2.10, archname=i686-linux
X uname='linux cretuer 2.2.10 #9 smp fri jul 23 12:24:43 mest 1999 i686 unknown '
X config_args=''
X hint=previous, useposix=true, d_sigaction=define
X usethreads=undef useperlio=undef d_sfio=undef
X use64bits=undef usemultiplicity=undef
X Compiler:
X cc='cc', optimize='-g -O2', gccversion=2.7.2.3
X cppflags='-Dbool=char -DHAS_BOOL -DDEBUGGING -I/usr/local/include'
X ccflags ='-Dbool=char -DHAS_BOOL -DDEBUGGING -I/usr/local/include'
X stdchar='char', d_stdstdio=define, usevfork=false
X intsize=4, longsize=4, ptrsize=4, doublesize=8
X d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
X alignbytes=4, usemymalloc=y, prototype=define
X Linker and Libraries:
X ld='cc', ldflags =' -L/usr/local/lib'
X libpth=/usr/local/lib /lib /usr/lib
X libs=-lnsl -lndbm -lgdbm -ldbm -ldb -ldl -lm -lc -lposix -lcrypt
X libc=/lib/libc-2.0.7.so, so=so, useshrplib=false, libperl=libperl.a
X Dynamic Linking:
X dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
X cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'
X
X
Characteristics of this binary (from libperl):
X Compile-time options: DEBUGGING
X Built under linux
X Compiled at Nov 19 1999 20:15:49
X @INC:
X /tmp/perl/lib/5.00562/i686-linux
X /tmp/perl/lib/5.00562
X /tmp/perl/lib/site_perl/5.00562/i686-linux
X /tmp/perl/lib/site_perl
X .
SHAR_EOF
$shar_touch -am 1119204399 'perl-conf-with-perlmalloc' &&
chmod 0664 'perl-conf-with-perlmalloc' ||
$echo 'restore of' 'perl-conf-with-perlmalloc' 'failed'
if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
&& ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
md5sum -c << SHAR_EOF >/dev/null 2>&1 \
|| $echo 'perl-conf-with-perlmalloc:' 'MD5 check failed'
e31b6eff49803fd99487f5c817cf4efd perl-conf-with-perlmalloc
SHAR_EOF
else
shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'perl-conf-with-perlmalloc'`"
test 1510 -eq "$shar_count" ||
$echo 'perl-conf-with-perlmalloc:' 'original size' '1510,' 'current size' "$shar_count!"
fi
fi
# ============= perl-conf-without-perlmalloc ==============
if test -f 'perl-conf-without-perlmalloc' && test "$first_param" != -c; then
$echo 'x -' SKIPPING 'perl-conf-without-perlmalloc' '(file already exists)'
else
$echo 'x -' extracting 'perl-conf-without-perlmalloc' '(text)'
sed 's/^X//' << 'SHAR_EOF' > 'perl-conf-without-perlmalloc' &&
Summary of my perl5 (revision 5.0 version 5 subversion 62) configuration:
X Platform:
X osname=linux, osvers=2.2.10, archname=i686-linux
X uname='linux cretuer 2.2.10 #9 smp fri jul 23 12:24:43 mest 1999 i686 unknown '
X config_args=''
X hint=previous, useposix=true, d_sigaction=define
X usethreads=undef useperlio=undef d_sfio=undef
X use64bits=undef usemultiplicity=undef
X Compiler:
X cc='cc', optimize='-g -O2', gccversion=2.7.2.3
X cppflags='-Dbool=char -DHAS_BOOL -DDEBUGGING -I/usr/local/include'
X ccflags ='-Dbool=char -DHAS_BOOL -DDEBUGGING -I/usr/local/include'
X stdchar='char', d_stdstdio=define, usevfork=false
X intsize=4, longsize=4, ptrsize=4, doublesize=8
X d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
X alignbytes=4, usemymalloc=y, prototype=define
X Linker and Libraries:
X ld='cc', ldflags =' -L/usr/local/lib'
X libpth=/usr/local/lib /lib /usr/lib
X libs=-lnsl -lndbm -lgdbm -ldbm -ldb -ldl -lm -lc -lposix -lcrypt
X libc=/lib/libc-2.0.7.so, so=so, useshrplib=false, libperl=libperl.a
X Dynamic Linking:
X dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
X cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'
X
X
Characteristics of this binary (from libperl):
X Compile-time options: DEBUGGING
X Built under linux
X Compiled at Nov 19 1999 20:00:17
X @INC:
X /tmp/perl/lib/5.00562/i686-linux
X /tmp/perl/lib/5.00562
X /tmp/perl/lib/site_perl/5.00562/i686-linux
X /tmp/perl/lib/site_perl
X .
SHAR_EOF
$shar_touch -am 1119204399 'perl-conf-without-perlmalloc' &&
chmod 0664 'perl-conf-without-perlmalloc' ||
$echo 'restore of' 'perl-conf-without-perlmalloc' 'failed'
if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
&& ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
md5sum -c << SHAR_EOF >/dev/null 2>&1 \
|| $echo 'perl-conf-without-perlmalloc:' 'MD5 check failed'
8cfe0408dae4a6c2245b64ea5bf7b5b8 perl-conf-without-perlmalloc
SHAR_EOF
else
shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'perl-conf-without-perlmalloc'`"
test 1510 -eq "$shar_count" ||
$echo 'perl-conf-without-perlmalloc:' 'original size' '1510,' 'current size' "$shar_count!"
fi
fi
rm -fr _sh10058
exit 0