Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

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

Closed
p5pRT opened this issue Sep 1, 1999 · 1 comment
Closed

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

p5pRT opened this issue Sep 1, 1999 · 1 comment

Comments

@p5pRT
Copy link

@p5pRT p5pRT commented Sep 1, 1999

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

Searchable as RT1303$

@p5pRT
Copy link
Author

@p5pRT p5pRT commented Sep 1, 1999

From laszlo.molnar@eth.ericsson.se

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

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Projects
None yet
Linked pull requests

Successfully merging a pull request may close this issue.

None yet
1 participant