From: Gurusamy Sarathy Date: Tue, 12 Oct 1999 05:53:40 +0000 (+0000) Subject: apply parts of LynxOS patches from Alan Johnson X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=883d36a60f1dbc0dec153bce822eebaa5172be5d;p=p5sagit%2Fp5-mst-13.2.git apply parts of LynxOS patches from Alan Johnson p4raw-id: //depot/perl@4353 --- diff --git a/Changes b/Changes index a1c14b7..cda8c0f 100644 --- 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 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 --- 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 --- a/pod/perldelta.pod +++ b/pod/perldelta.pod @@ -921,6 +921,9 @@ return values from system(1,...). The C 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 now weeds out any trailing duplicate entries. +C removes all named entries. + =item Math::BigInt The logical operations CE>, CE>, 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 --- 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 --- 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: