diff options
| author | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1990-08-13 09:45:26 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1990-08-13 09:45:26 +0000 |
| commit | 6eb13c3b624098fc688ac86672bc30e26cbf8fd4 (patch) | |
| tree | 13f2a8c28c0c79a68f94d0a2c6d852b0ad86f1b9 /eval.c | |
| parent | 62b28dd9eb2541847d5ce270cb7493fed626d1ef (diff) | |
| download | perl-6eb13c3b624098fc688ac86672bc30e26cbf8fd4.tar.gz | |
perl 3.0 patch #28 (combined patch)
Certain systems, notable Ultrix, set the close-on-exec flag
by default on dup'ed file descriptors. This is anti-social
when you're creating a new STDOUT. The flag is now forced
off for STDIN, STDOUT and STDERR.
Some yaccs report 29 shift/reduce conflicts and 59 reduce/reduce
conflicts, while other yaccs and bison report 27 and 61. The
Makefile now says to expect either thing. I'm not sure if there's
a bug lurking there somewhere.
The defined(@array) and defined(%array) ended up defining
the arrays they were trying to determine the status of. Oops.
Using the status of NSIG to determine whether <signal.h> had
been included didn't work right on Xenix. A fix seems to be
beyond Configure at the moment, so we've got some OS dependent
#ifdefs in there.
There were some syntax errors in the new code to determine whether
it is safe to emulate rename() with unlink/link/unlink. Obviously
heavily tested code... :-)
Patch 27 introduced the possibility of using identifiers as
unquoted strings, but the code to warn against the use of
totally lowercase identifiers looped infinitely.
I documented that you can't interpolate $) or $| in pattern.
It was actually implied under s///, but it should have been
more explicit.
Patterns with {m} rather than {m,n} didn't work right.
Tests io.fs and op.stat had difficulties under AFS. They now
ignore the tests in question if they think they're running under
/afs.
The shift/reduce expectation message was off for a2p's Makefile.
Diffstat (limited to 'eval.c')
| -rw-r--r-- | eval.c | 11 |
1 files changed, 8 insertions, 3 deletions
@@ -1,4 +1,4 @@ -/* $Header: eval.c,v 3.0.1.7 90/08/09 03:33:44 lwall Locked $ +/* $Header: eval.c,v 3.0.1.8 90/08/13 22:17:14 lwall Locked $ * * Copyright (c) 1989, Larry Wall * @@ -6,6 +6,11 @@ * as specified in the README file that comes with the perl 3.0 kit. * * $Log: eval.c,v $ + * Revision 3.0.1.8 90/08/13 22:17:14 lwall + * patch28: the NSIG hack didn't work right on Xenix + * patch28: defined(@array) and defined(%array) didn't work right + * patch28: rename was busted on systems without rename system call + * * Revision 3.0.1.7 90/08/09 03:33:44 lwall * patch19: made ~ do vector operation on strings like &, | and ^ * patch19: dbmopen(%name...) didn't work right @@ -60,7 +65,7 @@ #include "EXTERN.h" #include "perl.h" -#ifndef NSIG +#if !defined(NSIG) || defined(M_UNIX) || defined(M_XENIX) #include <signal.h> #endif @@ -1539,7 +1544,7 @@ register int sp; #ifdef RENAME value = (double)(rename(tmps,tmps2) >= 0); #else - if (same_dirent(tmps2, tmps) /* can always rename to same name */ + if (same_dirent(tmps2, tmps)) /* can always rename to same name */ anum = 1; else { if (euid || stat(tmps2,&statbuf) < 0 || |