Not OK: perl 5.00561 on dos-djgpp djgpp (UNINSTALLED)

[p5pRT]

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

Searchable as RT1303$

[p5pRT]

From [email protected]

Some problems​:

1, Some filenames are still not 8.3 friendly, such as​:

  ext/B/defsubs.h.PL
  t/lib/bigfloatpm.t
  pod/perltootc.pod

  lib/unicode/In/MiscellaneousTechnical.pl
  lib/unicode/In/LatinExtendedAdditional.pl
  lib/unicode/In/LatinExtended-B.pl
  lib/unicode/In/EnclosedCJKLettersandMonths.pl
  lib/unicode/In/CombiningMarksforSymbols.pl
  lib/unicode/In/CombiningHalfMarks.pl
  lib/unicode/In/CJKCompatibilityIdeographs.pl
  lib/unicode/In/CJKCompatibilityForms.pl
  lib/unicode/In/ArabicPresentationForms-B.pl
  hints/sunos_4_1.sh
  hints/sco_2_3_4.sh
  hints/sco_2_3_3.sh
  hints/sco_2_3_2.sh
  hints/sco_2_3_1.sh

  and some others...

  I'm only worried about the first 3, especially defsubs.h.PL.
  Could this be renamed to something like defsubs_h.PL ?

2, There is an error compiling sv.c​:

  `sh cflags libperl.a sv.o` sv.c
  CCCMD = gcc -DPERL_CORE -c -O2 -malign-loops=2 -malign-jumps=2 -malign-functions=2
  sv.c​: In function `Perl_sv_2pv'​:
  sv.c​:1841​: invalid operands to binary -
  sv.c​:1841​: invalid operands to binary -
  m.exe​: *** [sv.o] Error 1

  I used this patch (which only fixed the problem for me)​:

Inline Patch

--- sv.h~	Wed Sep  1 01:00:06 1999
+++ sv.h	Wed Sep  1 01:00:18 1999
@@ -692,7 +692,7 @@

 #define isGV(sv) (SvTYPE(sv) == SVt_PVGV)

-#if !defined(DOSISH) || defined(WIN32) || defined(OS2)
+#if !defined(DOSISH) || defined(WIN32) || defined(OS2) || defined(DJGPP)
 #  define SvGROW(sv,len) (SvLEN(sv) < (len) ? sv_grow(sv,len) : SvPVX(sv))
 #  define Sv_Grow sv_grow
 #else

3, Backticks don't set the correct error code (they're using the   return value of pclose on djgpp\)\. I'm working on this\.

4, Here is the result of `make test'​:

io/dup..............FAILED test 7

pragma/warning......PROG​:
  # doio.c
  $^W = 0 ;
  my $filename = "./temp" ;
  mkdir $filename, 0777
  or die "Cannot create directory $filename​: $!\n" ;
  {
  local (@​ARGV) = ($filename) ;
  local ($^I) = "" ;
  my $x = <> ;
  }
  {
  no warning 'inplace' ;
  local (@​ARGV) = ($filename) ;
  local ($^I) = "" ;
  my $x = <> ;
  }
  {
  use warning 'inplace' ;
  local (@​ARGV) = ($filename) ;
  local ($^I) = "" ;
  my $x = <> ;
  }
  rmdir $filename ;
  EXPECTED​:
  Can't do inplace edit​: ./temp is not a regular file at - line 9.
  Can't do inplace edit​: ./temp is not a regular file at - line 21.
  GOT​:
  Can't open ./temp​: No such file or directory (ENOENT)
  Can't open ./temp​: No such file or directory (ENOENT)
  PROG​:
  # pp_hot.c
  use warning 'io' ;
  print STDIN "anc";
  print <STDOUT>;
  print <STDERR>;
  open(FOO, ">&STDOUT") and print <FOO>;
  print getc(STDERR);
  print getc(FOO);
  read(FOO,$_,1);
  no warning 'io' ;
  print STDIN "anc";
  ####################################################################
  # N O T E #
  # This test is known to fail on Linux and *BSD systems with glibc. #
  # The glibc development team is aware of the problem, and has #
  # determined a fix for the next release of that library. #
  ####################################################################
  EXPECTED​:
  Filehandle main​::STDIN opened only for input at - line 3.
  Filehandle main​::STDOUT opened only for output at - line 4.
  Filehandle main​::STDERR opened only for output at - line 5.
  Filehandle main​::FOO opened only for output at - line 6.
  Filehandle main​::STDERR opened only for output at - line 7.
  Filehandle main​::FOO opened only for output at - line 8.
  Filehandle main​::FOO opened only for output at - line 9.
  GOT​:
  Filehandle main​::STDIN opened only for input at - line 3.
  Filehandle main​::STDOUT opened only for output at - line 4.
  Filehandle main​::STDERR opened only for output at - line 5.
  Filehandle main​::FOO opened only for output at - line 6.
  Filehandle main​::STDERR opened only for output at - line 7.
  Filehandle main​::FOO opened only for output at - line 8.
  FAILED tests 106, 190

lib/io_unix.........Can't locate Socket.pm in @​INC (@​INC contains​: ../lib ../lib ../lib ../lib ./lib/perl5 ./lib/perl5/site ./lib/perl5/site . ./lib/perl5 ./lib/perl5/site ./lib/perl5/site .) at ../lib/IO/Socket.pm line 12.
  BEGIN failed--compilation aborted at ../lib/IO/Socket.pm line 12.
  BEGIN failed--compilation aborted at lib/io_unix.t line 25.
  dubious
  Test returned status 0 (wstat 22, 0x16)

lib/posix...........Confused test output​: test 9 answered after test 10
  FAILED tests 4-5, 9-10

The posix.t failures were expected.

I'll post some patches after more testing.

Laszlo

ps : Perl was built in dosemu under linux :-)

Perl Info

Site configuration information for perl 5.00561:

Configured by ml1050 at Tue Aug 31 21:16:40  1999.

Summary of my perl5 (revision 5.0 version 5 subversion 61) configuration:
  Platform:
    osname=dos, osvers=djgpp, archname=dos-djgpp
    uname='ibmpcdos pc 6 00 pc '
    config_args='-dEs'
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef useperlio=undef d_sfio=undef
    use64bits=undef usemultiplicity=undef
  Compiler:
    cc='gcc', optimize='-O2 -malign-loops=2 -malign-jumps=2 -malign-functions=2', gccversion=2.95.1 19990816 (release)
    cppflags=''
    ccflags =''
    stdchar='char', d_stdstdio=undef, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
    alignbytes=4, usemymalloc=n, prototype=define
  Linker and Libraries:
    ld='ld', ldflags ='-s'
    libpth=c:/djgpp/lib
    libs=-lm -lc
    libc=c:/djgpp/lib/libc.a, so=none, useshrplib=false, libperl=libperl.a
  Dynamic Linking:
    dlsrc=dl_none.xs, dlext=none, d_dlsymun=undef, ccdlflags=''
    cccdlflags='', lddlflags=''

Locally applied patches:



@INC for perl 5.00561:
    lib
    ./lib/perl5
    ./lib/perl5/site
    ./lib/perl5/site
    .


Environment for perl 5.00561:
    HOME=c:/djgpp
    LANG (unset)
    LANGUAGE (unset)
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
    PATH=c:\djgpp\bin;c:\util;c:\shez
    PERL_BADLANG (unset)
    SHELL=c:/djgpp/bin/sh.exe