Perl / perl5

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

Not OK: perl v5.7.0 +SUIDMAIL +DEVEL6855 on i686-linux 2.2.13 #2466

Closed p5pRT closed 21 years ago

p5pRT commented 24 years ago

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

Searchable as RT3901$

p5pRT commented 24 years ago

From @abigail

The following prevents installation of perl when build with -Duselongdouble​:

  $ ./perl -wle 'print $]'   %5.3llf   $

Perl Info ``` Flags: category=install severity=none Site configuration information for perl v5.7.0: Configured by abigail at Mon Aug 28 02:32:28 EDT 2000. Summary of my perl5 (revision 5.0 version 7 subversion 0) configuration: Platform: osname=linux, osvers=2.2.13, archname=i686-linux uname='linux alexandra 2.2.13 #5 tue feb 8 15:37:54 est 2000 i686 unknown ' config_args='-Dcf_email=abigail@foad.org -Dperladmin=abigail@foad.org -Doptimize=-g -des -Uinstallusrbinperl -Dprefix=/opt/bleedperl -Dusedevel -Duselongdouble' 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=define usesocks=undef Compiler: cc='cc', optimize='-g', gccversion=2.95.2 19991024 (release), gccosandvers= cppflags='-DDEBUGGING -fno-strict-aliasing -I/usr/local/include' ccflags ='-DDEBUGGING -fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64' stdchar='char', d_stdstdio=define, usevfork=false 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='long double', nvsize=12, 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 -lndbm -lgdbm -ldbm -ldb -ldl -lm -lc -lposix -lcrypt -lutil libc=/lib/libc-2.1.2.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: SUIDMAIL - fixes for suidperl security DEVEL6855 @INC for perl v5.7.0: ./lib /home/abigail/Perl /home/abigail/Sybase /opt/bleedperl/lib/5.7.0/i686-linux /opt/bleedperl/lib/5.7.0 /opt/bleedperl/lib/site_perl/5.7.0/i686-linux /opt/bleedperl/lib/site_perl/5.7.0 /opt/bleedperl/lib/site_perl . Environment for perl v5.7.0: HOME=/home/abigail LANG (unset) LANGUAGE (unset) LD_LIBRARY_PATH=/home/abigail/Lib:/usr/local/lib:/usr/lib:/lib:/usr/X11R6/lib:/opt/tcl/lib:/opt/tk/lib/tk8.0 LOGDIR (unset) PATH=/home/abigail/Bin:/opt/perl/bin:/opt/tcl/bin:/opt/tk/bin:/usr/local/bin:/usr/local/X11/bin:/usr/bin:/bin:/usr/local/sbin:/usr/sbin:/sbin:/usr/X11R6/bin:/usr/games:/opt/povray/bin:/opt/teTeX/bin/i686-pc-linux-gnu:/opt/python/bin PERL5LIB=/home/abigail/Perl:/home/abigail/Sybase PERLDIR=/opt/perl PERL_BADLANG (unset) SHELL=/bin/bash ```
p5pRT commented 24 years ago

From @abigail

On Mon\, Aug 28\, 2000 at 07​:02​:51AM -0000\, abigail@​foad.org wrote​:

The following prevents installation of perl when build with -Duselongdouble​:

$ \./perl \-wle 'print $\]'
%5\.3llf
$

Here's a test that tests whether $] has an appropriate value​:

Abigail

*** t/comp/use.t.orig Mon Aug 28 03​:09​:41 2000 --- t/comp/use.t Mon Aug 28 03​:17​:39 2000 *************** *** 5\,13 ****   unshift @​INC\, '../lib';   }  
! print "1..27\n";  
  my $i = 1;   eval "use 5.000"; # implicit semicolon   if ($@​) {   print STDERR $@​\,"\n"; --- 5\,31 ----   unshift @​INC\, '../lib';   }  
! print "1..28\n";  
  my $i = 1; + + # Test for $]; + if (open my $fh => "../patchlevel.h") { + my %parts; + while (\<$fh>) { + next unless /^#define\s+PERL_(REVISION|VERSION|SUBVERSION)\s+(\d+)/; + $parts {$1} = $2; + } + my $version = sprintf "%d.%03d" => @​parts {qw /REVISION VERSION/}; + $version .= sprintf "%02d" => $parts {SUBVERSION} + if $parts {SUBVERSION}; + print "not " unless $] eq $version; + print "ok "\, $i ++\, "\n"; + } + else { + print "ok "\, $i ++\, " # Skipped\, could not read ../patchlevel.h\n"; + } +   eval "use 5.000"; # implicit semicolon   if ($@​) {   print STDERR $@​\,"\n";

p5pRT commented 24 years ago

From @jhi

On Mon\, Aug 28\, 2000 at 03​:32​:54AM -0400\, abigail@​foad.org wrote​:

On Mon\, Aug 28\, 2000 at 07​:02​:51AM -0000\, abigail@​foad.org wrote​:

The following prevents installation of perl when build with -Duselongdouble​:

$ \./perl \-wle 'print $\]'
%5\.3llf
$

Here's a test that tests whether $] has an appropriate value​:

Hmmm\, wouldn't fixing the printing of $] be more valuable?