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
Perl 5.004 on LynxOS 3.0.1 #447
Comments
From johnson@alonn.gemse.frHi, I have built and installed perl on Lynx OS 3.0.1 which is a real time It was very easy. Configure worked well but I had 3 minor problems Operating system: Perl: Problem 1. sdbm.c would not build. see sdbm.c.diff Problem 2. magic test 23 failed. We were seeing the script name as the see magic.t.diff Problem 3. safe2 test 30 failed. This is just because the operating system see safe2.t.diff thanks AJ |
From johnson@alonn.gemse.frsdbm.c.diff*** ../perl5.004/ext/SDBM_File/sdbm/sdbm.c Sun Apr 13 19:23:55 1997
--- ../perl5.004.lynx.3.0.1/ext/SDBM_File/sdbm/sdbm.c Fri Aug 27 03:21:17 1999
***************
*** 36,44 ****
#ifndef sun
extern int errno;
#endif
!
extern Malloc_t malloc proto((MEM_SIZE));
extern Free_t free proto((Malloc_t));
extern Off_t lseek();
#endif
--- 36,45 ----
#ifndef sun
extern int errno;
#endif
! #ifndef __stdlib_h /* Added AJ 27/8/99 LynxOS 3.0.1 build */
extern Malloc_t malloc proto((MEM_SIZE));
extern Free_t free proto((Malloc_t));
+ #endif
extern Off_t lseek();
#endif
|
From johnson@alonn.gemse.frmagic.t.diff*** ../perl5.004/t/op/magic.t Fri Apr 4 15:10:49 1997
--- ../perl5.004.lynx.3.0.1/t/op/magic.t Fri Aug 27 02:25:43 1999
***************
*** 22,27 ****
--- 22,29 ----
$Is_MSWin32 = ($^O eq 'MSWin32');
$PERL = ($Is_MSWin32 ? '.\perl' : './perl');
+ $Is_LynxOS = ($^O =~ m/lynx/i);
+
print "1..28\n";
eval '$ENV{"foo"} = "hi there";'; # check that ENV is inited inside eval
***************
*** 129,138 ****
--- 131,143 ----
EOF
ok 21, close(SCRIPT), $!;
ok 22, chmod(0755, $script), $!;
+ if ( $Is_LynxOS ) { ok 23, 1 }
+ else {
$_ = `$script`;
s{\bminiperl\b}{perl}; # so that test doesn't fail with miniperl
s{is perl}{is $wd/perl}; # for systems where $^X is only a basename
ok 23, $_ eq $s2, ":$_:!=:$s2:";
+ }
$_ = `$wd/perl $script`;
ok 24, $_ eq $s1, ":$_:!=:$s1: after `$wd/perl $script`";
ok 25, unlink($script), $!;
|
From johnson@alonn.gemse.frsafe2.t.diff*** ../perl5.004/t/lib/safe2.t Wed Jan 29 09:33:11 1997
--- ../perl5.004.lynx.3.0.1/t/lib/safe2.t Fri Aug 27 02:33:01 1999
***************
*** 121,126 ****
--- 121,127 ----
$cpt->rdo('/non/existant/file.name');
print +(($! =~ /No such file/ || $! =~ /file specification syntax error/) ||
$! =~ /A file or directory in the path name does not exist/ ||
+ $! =~ /directory doesn't exist/ ||
$! =~ /Device not configured/ ?
"ok $t\n" : "not ok $t # $!\n"); $t++;
print 1 ? "ok $t\n" : "not ok $t\n#$@/$!\n"; $t++;
|
From @gsarOn Fri, 27 Aug 1999 17:30:10 BST, Alan Johnson wrote:
This should actually be Problem 0. :-) 5.004 is more than three years old, and much has happened since
Sarathy |
From [Unknown Contact. See original ticket]Gurusamy Sarathy wrote:
....
Thanks for your message. I have built 5.005_61 on LynxOS 3.0.1. I had a number of problems: This is perl, version 5.005_61 built for i386-lynxos
I had a number of problems which I have fixed and one which I have not 1. perl.h During configuration the Configuration script attempts to union semun { Lynx defines it as: This make Configure think the union is not defined and to use I fixed this by always defining a typedef for a new type called 2/. pp_sys.c This would not build because it uses FD_CLOEXEC but did not include 3/. safe2.t This fails because the Lynx eror message for test 30 does not match one 4/. groups.t Lynx doesn't seem to have a command that lists all the available 5/. magic.t I think Lynx has a problem with argv[0] anyway we get the script name 6/. io_unix.t This fails in a big way. perl core dumps generating a core file with I hope this is useful information. AJ |
From [Unknown Contact. See original ticket]perl.h.diff*** perl.h.config Tue Sep 7 13:44:27 1999
--- perl.h Tue Sep 7 13:55:25 1999
***************
*** 3099,3109 ****
# include <sys/ipc.h>
# include <sys/sem.h>
# ifndef HAS_UNION_SEMUN /* Provide the union semun. */
! union semun {
int val;
struct semid_ds *buf;
unsigned short *array;
! };
# endif
# ifdef USE_SEMCTL_SEMUN
# define Semctl(id, num, cmd, semun) semctl(id, num, cmd, semun)
--- 3099,3111 ----
# include <sys/ipc.h>
# include <sys/sem.h>
# ifndef HAS_UNION_SEMUN /* Provide the union semun. */
! typedef union {
int val;
struct semid_ds *buf;
unsigned short *array;
! } perl_semun;
! # else
! typedef union semun perl_semun;
# endif
# ifdef USE_SEMCTL_SEMUN
# define Semctl(id, num, cmd, semun) semctl(id, num, cmd, semun)
|
From [Unknown Contact. See original ticket]pp_sys.c.diff*** pp_sys.c.org Tue Sep 7 14:27:39 1999
--- pp_sys.c Tue Sep 7 16:42:04 1999
***************
*** 137,142 ****
--- 137,145 ----
#ifdef HAS_FLOCK
# define FLOCK flock
+ # ifdef HAS_FCNTL
+ # include <fcntl.h>
+ # endif
#else /* no flock() */
/* fcntl.h might not have been included, even if it exists, because
|
From [Unknown Contact. See original ticket]safe2.t.diff*** lib/safe2.t.org Tue Sep 7 15:55:30 1999
--- lib/safe2.t Tue Sep 7 15:57:26 1999
***************
*** 124,130 ****
my $t = 30;
$cpt->rdo('/non/existant/file.name');
# The regexp is getting rather baroque.
! print $! =~ /No such file|file specification syntax error|A file or directory in the path name does not exist|Invalid argument|Device not configured|file not found/i ? "ok $t\n" : "not ok $t # $!\n"; $t++;
# test #31 is gone.
print 1 ? "ok $t\n" : "not ok $t\n#$@/$!\n"; $t++;
--- 124,130 ----
my $t = 30;
$cpt->rdo('/non/existant/file.name');
# The regexp is getting rather baroque.
! print $! =~ /No such file|file specification syntax error|A file or directory in the path name does not exist|Invalid argument|Device not configured|file not found|File or directory doesn't exist/i ? "ok $t\n" : "not ok $t # $!\n"; $t++;
# test #31 is gone.
print 1 ? "ok $t\n" : "not ok $t\n#$@/$!\n"; $t++;
|
From [Unknown Contact. See original ticket]groups.t.diff*** op/groups.t.org Tue Sep 7 15:24:29 1999
--- op/groups.t Tue Sep 7 15:34:05 1999
***************
*** 10,16 ****
exit 0;
}
! quit() if $^O eq 'MSWin32';
# We have to find a command that prints all (effective
# and real) group names (not ids). The known commands are:
--- 10,17 ----
exit 0;
}
! quit() if ($^O eq 'MSWin32' || $^O =~ m/lynxos/i);
!
# We have to find a command that prints all (effective
# and real) group names (not ids). The known commands are:
|
From [Unknown Contact. See original ticket]magic.t.diff*** op/magic.t.org Tue Sep 7 16:50:33 1999
--- op/magic.t Tue Sep 7 15:44:55 1999
***************
*** 23,28 ****
--- 23,30 ----
$Is_VMS = $^O eq 'VMS';
$Is_Dos = $^O eq 'dos';
$Is_Cygwin = $^O =~ /cygwin/;
+ $Is_LynxOS = ($^O =~ m/lynx/i);
+
$PERL = ($Is_MSWin32 ? '.\perl' : './perl');
print "1..35\n";
***************
*** 157,168 ****
--- 159,173 ----
EOF
ok 21, close(SCRIPT), $!;
ok 22, chmod(0755, $script), $!;
+ if ( $Is_LynxOS ) { ok "23 # skipped", 1 }
+ else {
$_ = `$script`;
s/\.exe//i if $Is_Dos or $Is_Cygwin;
s{\bminiperl\b}{perl}; # so that test doesn't fail with miniperl
s{is perl}{is $perl}; # for systems where $^X is only a basename
s{\\}{/}g;
ok 23, ($Is_MSWin32 ? uc($_) eq uc($s1) : $_ eq $s1), ":$_:!=:$s1:";
+ }
$_ = `$perl $script`;
s/\.exe//i if $Is_Dos;
s{\\}{/}g;
|
From @gsarOn Tue, 07 Sep 1999 16:58:29 BST, Alan Johnson wrote:
grep for ARG_ZERO_IS_SCRIPT in toke.c, and see if enabling it Thanks. Sarathy |
From [Unknown Contact. See original ticket]Gurusamy Sarathy wrote:
This works. I have added it to the hints file for LynxOS.
|
From [Unknown Contact. See original ticket] |
From [Unknown Contact. See original ticket] |
From [Unknown Contact. See original ticket]Hi, I have been working on getting perl 5.005_61 working on I had a problem with perl core dumping in the io_unix test. I have made a fix which uses the AF_UNIX family address structure I have attached lynxos.sh and the context diff for pp_sys.c With the other changes I sent in earlier everything now seems to thanks AJ |
From [Unknown Contact. See original ticket]pp_sys.c.diff*** pp_sys.c.org Fri Aug 20 08:52:00 1999
--- pp_sys.c Mon Sep 13 16:31:00 1999
***************
*** 45,50 ****
--- 45,53 ----
#endif
#if defined(HAS_SOCKET) && !defined(VMS) /* VMS handles sockets via vmsish.h */
+ #ifdef ACCEPT_LEN_BROKEN
+ #include <sys/un.h>
+ #endif
# include <sys/socket.h>
# if defined(USE_SOCKS) && defined(I_SOCKS)
# include <socks.h>
***************
*** 65,70 ****
--- 68,74 ----
#endif
#endif
+
/* XXX Configure test needed.
h_errno might not be a simple 'int', especially for multi-threaded
applications, see "extern int errno in perl.h". Creating such
***************
*** 137,142 ****
--- 141,149 ----
#ifdef HAS_FLOCK
# define FLOCK flock
+ # ifdef HAS_FCNTL
+ # include <fcntl.h>
+ # endif
#else /* no flock() */
/* fcntl.h might not have been included, even if it exists, because
***************
*** 2183,2189 ****
--- 2190,2200 ----
GV *ggv;
register IO *nstio;
register IO *gstio;
+ #ifdef ACCEPT_LEN_BROKEN
+ struct sockaddr_un saddr; /* use a struct to avoid alignment problems */
+ #else
struct sockaddr saddr; /* use a struct to avoid alignment problems */
+ #endif
Sock_size_t len = sizeof saddr;
int fd;
|
From [Unknown Contact. See original ticket] |
Migrated from rt.perl.org#1288 (status was 'resolved')
Searchable as RT1288$
The text was updated successfully, but these errors were encountered: