diff options
author | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1990-03-27 04:46:23 +0000 |
---|---|---|
committer | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1990-03-27 04:46:23 +0000 |
commit | 0f85fab05fafa513bd55a9e1ab280aac5567e27a (patch) | |
tree | 104b9667181305a6dce5f73bb4d23518f8ba0b2e /perl.y | |
parent | b1248f16cd8cccfb12ae16cd8e7e93dd53dc52bf (diff) | |
download | perl-0f85fab05fafa513bd55a9e1ab280aac5567e27a.tar.gz |
perl 3.0 patch #18 patch #16, continued
See patch #16.
Diffstat (limited to 'perl.y')
-rw-r--r-- | perl.y | 14 |
1 files changed, 8 insertions, 6 deletions
@@ -1,4 +1,4 @@ -/* $Header: perl.y,v 3.0.1.5 90/03/12 16:55:56 lwall Locked $ +/* $Header: perl.y,v 3.0.1.6 90/03/27 16:13:45 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: perl.y,v $ + * Revision 3.0.1.6 90/03/27 16:13:45 lwall + * patch16: formats didn't work inside eval + * * Revision 3.0.1.5 90/03/12 16:55:56 lwall * patch13: added list slice operator (LIST)[LIST] * patch13: (LIST,) now legal @@ -67,7 +70,6 @@ ARG *arg5; %token <arg> RSTRING TRANS %type <ival> prog decl format remember -%type <stabval> %type <cmdval> block lineseq line loop cond sideff nexpr else %type <arg> expr sexpr cexpr csexpr term handle aryword hshword %type <arg> texpr listop @@ -307,14 +309,14 @@ decl : format format : FORMAT WORD '=' FORMLIST { if (strEQ($2,"stdout")) - stab_form(stabent("STDOUT",TRUE)) = $4; + make_form(stabent("STDOUT",TRUE),$4); else if (strEQ($2,"stderr")) - stab_form(stabent("STDERR",TRUE)) = $4; + make_form(stabent("STDERR",TRUE),$4); else - stab_form(stabent($2,TRUE)) = $4; + make_form(stabent($2,TRUE),$4); Safefree($2);} | FORMAT '=' FORMLIST - { stab_form(stabent("STDOUT",TRUE)) = $3; } + { make_form(stabent("STDOUT",TRUE),$3); } ; subrout : SUB WORD block |