apply parts of LynxOS patches from Alan Johnson

<johnson@alonn.gemse.fr>

p4raw-id: //depot/perl@4353

diff --git a/Changes b/Changes
index a1c14b7..cda8c0f 100644 (file)
--- a/Changes
+++ b/Changes
@@ -79,6 +79,32 @@ Version 5.005_62        Development release working toward 5.006
 ----------------
 
 ____________________________________________________________________________
+[  4352] By: gsar                                  on 1999/10/12  05:24:39
+        Log: allow any unpack specifier to take a count via '/'
+             (from Ilya Zakharevich)
+     Branch: perl
+          ! pp.c t/op/pack.t
+____________________________________________________________________________
+[  4351] By: gsar                                  on 1999/10/12  05:02:35
+        Log: avoid warnings
+     Branch: perl
+          ! malloc.c
+____________________________________________________________________________
+[  4350] By: gsar                                  on 1999/10/12  04:50:52
+        Log: various cleanups
+     Branch: perl
+          ! ext/Devel/DProf/DProf.xs op.c perl.c perly.c perly.y
+          ! perly_c.diff pp_hot.c toke.c vms/perly_c.vms win32/config.bc
+          ! win32/config.gc win32/config.vc win32/config_H.bc
+          ! win32/config_H.gc win32/config_H.vc win32/config_sh.PL
+____________________________________________________________________________
+[  4349] By: gsar                                  on 1999/10/12  00:23:11
+        Log: update Changes, patchlevel etc.
+     Branch: perl
+          ! Changes Porting/findvars patchlevel.h win32/Makefile
+          ! win32/config_H.bc win32/config_H.gc win32/config_H.vc
+          ! win32/makefile.mk
+____________________________________________________________________________
 [  4348] By: gsar                                  on 1999/10/11  23:11:57
         Log: add vec() example from Chaim Frenkel <chaimf@pobox.com>
      Branch: perl
@@ -252,7 +278,7 @@ ____________________________________________________________________________
 ____________________________________________________________________________
 [  4323] By: gsar                                  on 1999/10/09  18:48:31
         Log: don't run END blocks when running under -c switch (older,
-             rarely useful, behavior may still be obtained by putting
+             rarely useful behavior may still be obtained by putting
              BEGIN { $^C = 0; exit; } at the end of the script)
      Branch: perl
           ! perl.c

diff --git a/hints/lynxos.sh b/hints/lynxos.sh
index ddffcbe..bde461f 100644 (file)
--- a/hints/lynxos.sh
+++ b/hints/lynxos.sh
@@ -9,3 +9,6 @@
 cc='gcc'
 so='none'
 usemymalloc='n'
+
+# When LynxOS runs a script with "#!" it sets argv[0] to the script name
+toke_cflags='ccflags="$ccflags -DARG_ZERO_IS_SCRIPT"'

diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index 2713652..75423ce 100644 (file)
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -921,6 +921,9 @@ return values from system(1,...).
 
 The C<Shell> module is supported.
 
+Rudimentary support for building under command.com in Windows 95
+has been added.
+
 [TODO - GSAR]
 
 =head1 New tests
@@ -1121,6 +1124,11 @@ from ever returning the correct value has been corrected.
 Java Perl Lingo is now distributed with Perl.  See jpl/README
 for more information.
 
+=item lib
+
+C<use lib> now weeds out any trailing duplicate entries.
+C<no lib> removes all named entries.
+
 =item Math::BigInt
 
 The logical operations C<E<lt>E<lt>>, C<E<gt>E<gt>>, C<&>, C<|>,
@@ -1245,6 +1253,14 @@ change#4232
 
 =over 4
 
+=item perlcompile.pod
+
+An introduction to using the Perl Compiler suite.
+
+=item perlhack.pod
+
+Some guidelines for hacking the Perl source code.
+
 =item perlopentut.pod
 
 A tutorial on using open() effectively.
@@ -1257,10 +1273,6 @@ A tutorial that introduces the essentials of references.
 
 A tutorial on managing class data for object modules.
 
-=item perlcompile.pod
-
-An introduction to using the Perl Compiler suite.
-
 =back
 
 =head1 New Diagnostics

diff --git a/t/lib/safe2.t b/t/lib/safe2.t
index 572876c..2c1c80c 100755 (executable)
--- a/t/lib/safe2.t
+++ b/t/lib/safe2.t
@@ -124,7 +124,7 @@ print $@ =~ /foo bar/ ? "ok 29\n" : "not ok 29\n";
 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++;
+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++;
   

diff --git a/t/op/groups.t b/t/op/groups.t
index a8f9fe8..4b655c8 100755 (executable)
--- a/t/op/groups.t
+++ b/t/op/groups.t
@@ -10,7 +10,7 @@ sub quit {
     exit 0;
 }
 
-quit() if $^O eq 'MSWin32';
+quit() if $^O eq 'MSWin32' or $^O =~ /lynxos/i;
 
 # We have to find a command that prints all (effective
 # and real) group names (not ids).  The known commands are: