diff options
| author | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1989-12-21 07:38:27 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1989-12-21 07:38:27 +0000 |
| commit | 663a0e373fc859394758ec18df61983d1fad6d0a (patch) | |
| tree | 3f9fb8655dfb87b37e01a05822923f40c177f63c /eval.c | |
| parent | d8f2e4ccb684dfafc2c7b30a318ebf5798a9a1a4 (diff) | |
| download | perl-663a0e373fc859394758ec18df61983d1fad6d0a.tar.gz | |
perl 3.0 patch #8 patch 7 continued
See patch 7.
Diffstat (limited to 'eval.c')
| -rw-r--r-- | eval.c | 28 |
1 files changed, 17 insertions, 11 deletions
@@ -1,4 +1,4 @@ -/* $Header: eval.c,v 3.0.1.2 89/11/17 15:19:34 lwall Locked $ +/* $Header: eval.c,v 3.0.1.3 89/12/21 20:03:05 lwall Locked $ * * Copyright (c) 1989, Larry Wall * @@ -6,8 +6,14 @@ * as specified in the README file that comes with the perl 3.0 kit. * * $Log: eval.c,v $ + * Revision 3.0.1.3 89/12/21 20:03:05 lwall + * patch7: errno may now be a macro with an lvalue + * patch7: ANSI strerror() is now supported + * patch7: send() didn't allow a TO argument + * patch7: ord() now always returns positive even on signed char machines + * * Revision 3.0.1.2 89/11/17 15:19:34 lwall - * patch5: simplified a too-complex expression for some machine or other + * patch5: constant numeric subscripts get lost inside ?: * * Revision 3.0.1.1 89/11/11 04:31:51 lwall * patch2: mkdir and rmdir needed to quote argument when passed to shell @@ -23,14 +29,11 @@ #include "perl.h" #include <signal.h> -#include <errno.h> #ifdef I_VFORK # include <vfork.h> #endif -extern int errno; - #ifdef VOIDSIG static void (*ihand)(); static void (*qhand)(); @@ -50,9 +53,6 @@ double sin(), cos(), atan2(), pow(); char *getlogin(); -extern int sys_nerr; -extern char *sys_errlist[]; - int eval(arg,gimme,sp) register ARG *arg; @@ -962,7 +962,13 @@ register int sp; errno = 0; if (optype > 4) warn("Too many args on send"); - if (optype >= 4) { + stio = stab_io(stab); + if (!stio || !stio->ifp) { + anum = -1; + if (dowarn) + warn("Send on closed socket"); + } + else if (optype >= 4) { tmps2 = str_get(st[4]); anum = sendto(fileno(stab_io(stab)->ifp), tmps, st[2]->str_cur, anum, tmps2, st[4]->str_cur); @@ -1197,10 +1203,10 @@ register int sp; else tmps = str_get(st[1]); #ifndef I286 - value = (double) *tmps; + value = (double) (*tmps & 255); #else anum = (int) *tmps; - value = (double) anum; + value = (double) (anum & 255); #endif goto donumset; case O_SLEEP: |