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 /x2p | |
| parent | d8f2e4ccb684dfafc2c7b30a318ebf5798a9a1a4 (diff) | |
| download | perl-663a0e373fc859394758ec18df61983d1fad6d0a.tar.gz | |
perl 3.0 patch #8 patch 7 continued
See patch 7.
Diffstat (limited to 'x2p')
| -rw-r--r-- | x2p/walk.c | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/x2p/walk.c b/x2p/walk.c index 62b64a4a86..ca1214d488 100644 --- a/x2p/walk.c +++ b/x2p/walk.c @@ -1,4 +1,4 @@ -/* $Header: walk.c,v 3.0.1.2 89/11/17 15:53:00 lwall Locked $ +/* $Header: walk.c,v 3.0.1.3 89/12/21 20:32:35 lwall Locked $ * * Copyright (c) 1989, Larry Wall * @@ -6,6 +6,9 @@ * as specified in the README file that comes with the perl 3.0 kit. * * $Log: walk.c,v $ + * Revision 3.0.1.3 89/12/21 20:32:35 lwall + * patch7: in a2p, user-defined functions didn't work on some machines + * * Revision 3.0.1.2 89/11/17 15:53:00 lwall * patch5: on Pyramids, index(s, '}' + 128) doesn't find meta-} * @@ -1844,7 +1847,7 @@ int *numericptr; case OUSERFUN: tmp2str = str_new(0); str_scat(tmp2str,tmpstr=walk(1,level,ops[node+1].ival,&numarg,P_MIN)); - fixrargs(tmpstr->str_ptr,ops[node+2],0); + fixrargs(tmpstr->str_ptr,ops[node+2].ival,0); str_free(tmpstr); str_cat(tmp2str,"("); tmpstr = hfetch(symtab,tmp2str->str_ptr); |