diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1997-11-22 09:48:02 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1997-11-22 09:48:02 +0000 |
| commit | 0da4822f11e97ce202166899552c06d720eb835a (patch) | |
| tree | 2a629ad4539739bcf6e0d9a49d8f52cbcc3a3196 /vms | |
| parent | a80f87c48e630b044cd5371d547b0f38e4476ec0 (diff) | |
| download | perl-0da4822f11e97ce202166899552c06d720eb835a.tar.gz | |
- shift() inside BEGIN|END|INIT now shifts @ARGV instead of @_
- added a test for the above
- fixed up perly.c.diff and vms/perl_c.vms for above and added the
ansification hunks
p4raw-id: //depot/win32/perl@277
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/perly_c.vms | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/vms/perly_c.vms b/vms/perly_c.vms index 1344fae31e..e3c100b45d 100644 --- a/vms/perly_c.vms +++ b/vms/perly_c.vms @@ -8,7 +8,7 @@ static char yysccsid[] = "@(#)yaccpar 1.8 (Berkeley) 01/20/91"; #include "perl.h" static void -dep() +dep(void) { deprecate("\"do\" to call subroutines"); } @@ -1304,8 +1304,7 @@ struct ysv { }; void -yydestruct(ptr) -void* ptr; +yydestruct(void *ptr) { struct ysv* ysave = (struct ysv*)ptr; if (ysave->yyss) Safefree(ysave->yyss); @@ -1320,7 +1319,7 @@ void* ptr; } int -yyparse() +yyparse(void) { register int yym, yyn, yystate; register short *yyssp; @@ -1331,10 +1330,12 @@ yyparse() int retval = 0; #if YYDEBUG register char *yys; +#ifndef __cplusplus # ifndef getenv extern char *getenv(); # endif #endif +#endif struct ysv *ysave = (struct ysv*)safemalloc(sizeof(struct ysv)); SAVEDESTRUCTOR(yydestruct, ysave); @@ -1769,7 +1770,7 @@ case 56: { char *name = SvPV(((SVOP*)yyvsp[0].opval)->op_sv, na); if (strEQ(name, "BEGIN") || strEQ(name, "END") || strEQ(name, "INIT")) - CvUNIQUE_on(compcv); + { CvUNIQUE_on(compcv); subline = -subline; } yyval.opval = yyvsp[0].opval; } break; case 57: |