From: Charles Bailey <bailey@newman.upenn.edu>
Date: Mon, 6 Sep 1999 02:39:11 +0000 (+0000)
Subject: Integrate mainline 5.05_61
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=424a8fe95d507998fe8750793da1b35bd6d7074b;p=p5sagit%2Fp5-mst-13.2.git

Integrate mainline 5.05_61

p4raw-id: //depot/vmsperl@4084
---

424a8fe95d507998fe8750793da1b35bd6d7074b
diff --cc configure.com
index ef77779,0f86983..a9ed05b
--- a/configure.com
+++ b/configure.com
@@@ -1728,19 -1716,19 +1728,40 @@@ $   echo "This version of perl has expe
  $   echo "64 bit integers and 128 bit floating point variables. This gives
  $   echo "a much larger range for perl's mathematical operations. (Note that
  $   echo "does *not* enable 64-bit fileops at the moment, as Dec C doesn't
 +$   echo "do that yet)"
 +$   echo ""
 +$   dflt = use_64bit
 +$   rp = "Build with 64 bits? [''dflt'] "
 +$   GOSUB myread
 +$     if ans.eqs."" then ans = dflt
 +$   if (f$extract(0, 1, "''ans'").eqs."Y").or.(f$extract(0, 1, "''ans'").eqs."y")
 +$   THEN
 +$     use_64bit="Y"
 +$   ELSE
 +$     use_64bit="N"
 +$   ENDIF
 +$ ENDIF
++$!
++$! Ask if they want to build with 64-bit support
++$ if (Archname.eqs."VMS_AXP").and.("''f$extract(1,3, f$getsyi(""version""))'".ges."7.1")
++$ THEN
++$   echo "This version of perl has experimental support for building wtih
++$   echo "64 bit integers and 128 bit floating point variables. This gives
++$   echo "a much larger range for perl's mathematical operations. (Note that
++$   echo "does *not* enable 64-bit fileops at the moment, as Dec C doesn't
+ $   echo "do that yet)"
+ $   echo ""
+ $   dflt = use_64bit
+ $   rp = "Build with 64 bits? [''dflt'] "
+ $   GOSUB myread
+ $     if ans.eqs."" then ans = dflt
+ $   if (f$extract(0, 1, "''ans'").eqs."Y").or.(f$extract(0, 1, "''ans'").eqs."y")
+ $   THEN
+ $     use_64bit="Y"
+ $   ELSE
+ $     use_64bit="N"
+ $   ENDIF
+ $ ENDIF
  $! Ask about threads, if appropriate
  $ if (Using_Dec_C.eqs."Yes")
  $ THEN
diff --cc ext/ByteLoader/byterun.h
index c505ead,9634688..bfe007c
--- a/ext/ByteLoader/byterun.h
+++ b/ext/ByteLoader/byterun.h
@@@ -151,6 -151,11 +151,11 @@@ enum 
      OPt_COP		/* 10 */
  };
  
 -#if defined(CYGWIN)
++#if defined(CYGWIN) || defined(VMS)
+ extern
+ #else
+ EXT
+ #endif
  void byterun(pTHXo_ struct bytestream bs);
  
  #define INIT_SPECIALSV_LIST STMT_START { \
diff --cc perlapi.c
index d0c7f33,1945146..1945146
mode 100755,100644..100755
--- a/perlapi.c
+++ b/perlapi.c
diff --cc perlapi.h
index 6b931cc,0dac61a..0dac61a
mode 100755,100644..100755
--- a/perlapi.h
+++ b/perlapi.h
diff --cc t/io/open.t
index 49b2311,12d32f4..0329c31
--- a/t/io/open.t
+++ b/t/io/open.t
@@@ -79,10 -78,9 +79,10 @@@ print "ok 23\n"
  
  unlink("afile");     
  }
 -{
 +if ($Is_VMS) { for (24..46) { print "ok $_ # skipped: not Unix fork\n"; {
 +else {
  print "# \$!='$!'\nnot " unless open(my $f, '-|', <<'EOC');
- perl -e "print qq(a row\n); print qq(another row\n)"
+ ./perl -e "print qq(a row\n); print qq(another row\n)"
  EOC
  print "ok 24\n";
  @rows = <$f>;
@@@ -91,10 -89,9 +91,10 @@@ print "ok 25\n"
  print "not " unless close($f);
  print "ok 26\n";
  }
 -{
 +if ($Is_VMS) { for (27..30) { print "OK $_ # skipped: not Unix fork\n"; }
 +else {
  print "# \$!='$!'\nnot " unless open(my $f, '|-', <<'EOC');
- perl -pe "s/^not //"
+ ./perl -pe "s/^not //"
  EOC
  print "ok 27\n";
  @rows = <$f>;
diff --cc vms/descrip_mms.template
index 33bf854,7d86f24..3f91940
--- a/vms/descrip_mms.template
+++ b/vms/descrip_mms.template
@@@ -276,42 -278,44 +276,42 @@@ FULLLIBS2 = $(LIBS2)|$(THRLIBS1)|$(THRL
  
  #### End of system configuration section. ####
  
 -
 -h1 = EXTERN.h, INTERN.h, XSUB.h, av.h, config.h, cop.h, cv.h
 -h2 = embed.h, form.h, gv.h, handy.h, hv.h, keywords.h, mg.h, op.h, thread.h
 -h3 = opcode.h, patchlevel.h, perl.h, perly.h, pp.h, proto.h, regcomp.h
 -h4 = regexp.h, scope.h, sv.h, vmsish.h, util.h, perlsdio.h, perlio.h
 -h5 = embedvar.h, intrpvar.h, perlvars.h, thrdvar.h, iperlsys.h
 -h6 = pp_proto.h, regnodes.h, warning.h
 -h = $(h1), $(h2), $(h3), $(h4), $(h5), $(h6) $(SOCKHLIS) $(THREADH)
 -
 -c1 = av.c, scope.c, op.c, doop.c, doio.c, dump.c, hv.c, mg.c, universal.c, perlio.c, utf8.c
 -c2 = perl.c, perly.c, pp.c, pp_hot.c, pp_ctl.c, pp_sys.c, regcomp.c, regexec.c $(MALLOC_C)
 -c3 = gv.c, sv.c, taint.c, toke.c, utf8.c, util.c, deb.c, run.c, globals.c, vms.c $(SOCKCLIS)
 -
 -c = $(c1), $(c2), $(c3), miniperlmain.c, perlmain.c
 -
 -obj1 = perl$(O), gv$(O), toke$(O), perly$(O), op$(O), regcomp$(O), dump$(O), utf8$(O), util$(O), mg$(O), perlio$(O) $(MALLOC_O)
 -obj2 = hv$(O), av$(O), run$(O), pp_hot$(O), sv$(O), pp$(O), scope$(O), pp_ctl$(O), pp_sys$(O), utf8$(O)
 -obj3 = doop$(O), doio$(O), regexec$(O), taint$(O), deb$(O), universal$(O), globals$(O), vms$(O) $(SOCKOBJ)
 -
 -obj = $(obj1), $(obj2), $(obj3)
 -
 -ac1 = $(ARCHCORE)EXTERN.h $(ARCHCORE)INTERN.h  $(ARCHCORE)XSUB.h $(ARCHCORE)av.h
 -ac2 = $(ARCHCORE)config.h $(ARCHCORE)cop.h $(ARCHCORE)cv.h $(ARCHCORE)embed.h
 -ac3 = $(ARCHCORE)form.h $(ARCHCORE)gv.h $(ARCHCORE)handy.h $(ARCHCORE)hv.h $(ARCHCORE)utf8.h
 -ac4 = $(ARCHCORE)keywords.h $(ARCHCORE)mg.h $(ARCHCORE)op.h $(ARCHCORE)opcode.h
 -ac5 = $(ARCHCORE)patchlevel.h $(ARCHCORE)perl.h $(ARCHCORE)perly.h $(ARCHCORE)thread.h $(ARCHCORE)iperlsys.h
 -ac6 = $(ARCHCORE)pp.h $(ARCHCORE)pp_proto.h $(ARCHCORE)proto.h $(ARCHCORE)regcomp.h $(ARCHCORE)perlsdio.h $(ARCHCORE)perlio.h
 -ac7 = $(ARCHCORE)regexp.h $(ARCHCORE)scope.h $(ARCHCORE)sv.h $(ARCHCORE)util.h
 -ac8  = $(ARCHCORE)embedvar.h $(ARCHCORE)intrpvar.h $(ARCHCORE)perlvars.h $(ARCHCORE)thrdvar.h
 -ac9  = $(ARCHCORE)vmsish.h $(ARCHCORE)warning.h $(ARCHCORE)$(DBG)libperl$(OLB) $(ARCHCORE)perlshr_attr.opt
 -ac10 = $(ARCHCORE)$(DBG)perlshr_bld.opt  
 -ac11 = $(ARCHCORE)cc_runtime.h
 -.ifdef SOCKET
 -acs = $(ARCHCORE)$(SOCKH)
 -.else
 -acs =
 -.endif
 -
 +c0 = $(MALLOC_C) $(SOCKC) av.c deb.c doio.c doop.c dump.c globals.c gv.c
 +c1 = hv.c mg.c miniperlmain.c op.c perl.c perlio.c perly.c pp.c pp_ctl.c
 +c2 = pp_hot.c pp_sys.c regcomp.c regexec.c run.c scope.c sockadapt.c sv.c
 +c3 = taint.c toke.c universal.c utf8.c util.c vms.c
 +c = $(c0) $(c1) $(c2) $(c3)
 +
 +obj0 = $(MALLOC_O) $(SOCKOBJ) av$(O) deb$(O) doio$(O) doop$(O) dump$(O)
 +obj1 = globals$(O) gv$(O) hv$(O) mg$(O) miniperlmain$(O) op$(O) perl$(O)
 +obj2 = perlio$(O) perly$(O) pp$(O) pp_ctl$(O) pp_hot$(O) pp_sys$(O) 
 +obj3 = regcomp$(O) regexec$(O) run$(O) scope$(O) sockadapt$(O) sv$(O)
 +obj4 = taint$(O) toke$(O) universal$(O) utf8$(O) util$(O) vms$(O)
 +obj = $(obj0) $(obj1) $(obj2) $(obj3) $(obj4)
 +
 +h0 = $(SOCKH) av.h cc_runtime.h config.h cop.h cv.h embed.h embedvar.h
 +h1 = extern.h $(THREADH) form.h gv.h handy.h hv.h intern.h intrpvar.h
 +h2 = iperlsys.h keywords.h mg.h nostdio.h op.h opcode.h patchlevel.h perl.h
 +h3 = perlio.h perlsdio.h perlvars.h perly.h pp.h pp_proto.h proto.h
 +h4 = regcomp.h regexp.h regnodes.h scope.h sv.h thrdvar.h
- h5 = thread.h utf8.h util.h vmsish.h warning.h xsub.h
++h5 = thread.h utf8.h util.h vmsish.h warnings.h xsub.h opnames.h
 +h = $(h0) $(h1) $(h2) $(h3) $(h4) $(h5)
 +
 +ac0 = $(SOCKARCH) $(ARCHCORE)av.h $(ARCHCORE)cc_runtime.h
 +ac1 = $(ARCHCORE)config.h $(ARCHCORE)cop.h $(ARCHCORE)cv.h $(ARCHCORE)embed.h
 +ac2 = $(ARCHCORE)embedvar.h $(ARCHCORE)extern.h $(acth)
 +ac3 = $(ARCHCORE)form.h $(ARCHCORE)gv.h $(ARCHCORE)handy.h $(ARCHCORE)hv.h
 +ac4 = $(ARCHCORE)intern.h $(ARCHCORE)intrpvar.h $(ARCHCORE)iperlsys.h
 +ac5 = $(ARCHCORE)keywords.h $(ARCHCORE)mg.h $(ARCHCORE)nostdio.h
 +ac6 = $(ARCHCORE)op.h $(ARCHCORE)opcode.h $(ARCHCORE)patchlevel.h
 +ac7 = $(ARCHCORE)perl.h $(ARCHCORE)perlio.h $(ARCHCORE)perlsdio.h
 +ac8 = $(ARCHCORE)perlvars.h $(ARCHCORE)perly.h $(ARCHCORE)pp.h
 +ac9 = $(ARCHCORE)pp_proto.h $(ARCHCORE)proto.h $(ARCHCORE)regcomp.h
 +ac10 = $(ARCHCORE)regexp.h $(ARCHCORE)regnodes.h $(ARCHCORE)scope.h
- ac11 = $(ARCHCORE)sv.h $(ARCHCORE)thrdvar.h
++ac11 = $(ARCHCORE)sv.h $(ARCHCORE)thrdvar.h $(ARCHCORE)opnames.h
 +ac12 = $(ARCHCORE)thread.h $(ARCHCORE)utf8.h $(ARCHCORE)util.h
- ac13 = $(ARCHCORE)vmsish.h $(ARCHCORE)warning.h $(ARCHCORE)xsub.h
++ac13 = $(ARCHCORE)vmsish.h $(ARCHCORE)warnings.h $(ARCHCORE)xsub.h
 +ac = $(ac0) $(ac1) $(ac2) $(ac3) $(ac4) $(ac5) $(ac6) $(ac7) $(ac8) $(ac9) $(ac10) $(ac11) $(ac12) $(ac13)
  
  CRTL = []crtl.opt
  CRTLOPTS =,$(CRTL)/Options
@@@ -733,7 -738,7 +733,7 @@@ printconfig 
  
  vmsish.h : $(SOCKH)
  
--$(SOCKOBJ) : $(SOCKC) EXTERN.h perl.h config.h embed.h perlsdio.h handy.h vmsish.h regexp.h sv.h util.h form.h gv.h cv.h opcode.h op.h cop.h av.h hv.h mg.h scope.h perly.h thread.h pp.h proto.h embedvar.h perlvars.h thrdvar.h intrpvar.h perlio.h
++$(SOCKOBJ) : $(SOCKC) EXTERN.h perl.h config.h embed.h perlsdio.h handy.h vmsish.h regexp.h sv.h util.h form.h gv.h cv.h opcode.h opnames.h op.h cop.h av.h hv.h mg.h scope.h perly.h thread.h pp.h proto.h embedvar.h perlvars.h thrdvar.h intrpvar.h perlio.h
  
  $(SOCKC) : [.vms]$(SOCKC)
  	Copy/Log/NoConfirm [.vms]$(SOCKC) []$(SOCKC)
@@@ -745,10 -750,10 +745,20 @@@ $(SOCKH) : [.vms]$(SOCKH
  	Copy/Log/NoConfirm $(MMS$SOURCE) $(MMS$TARGET)
  .endif
  
--# The following three header files are generated automatically
--#	keywords.h :	keywords.pl
--#	opcode.h :	opcode.pl
--#	embed.h :	embed.pl global.sym interp.sym
++# The following files are generated automatically
++#	keywords.h:	keywords.pl
++#	opcode.h:	opcode.pl
++#	opnames.h:	opcode.pl
++#	pp_proto.h:	opcode.pl
++#	pp.sym:		opcode.pl
++#	embed.h:  	embed.pl  [* needs pp.sym generated by opcode.pl! *]
++#	embedvar.h:  	embed.pl  [* needs pp.sym generated by opcode.pl! *]
++#	ext/ByteLoader/byterun.h:	bytecode.pl
++#	ext/ByteLoader/byterun.c:	bytecode.pl
++#	ext/B/Asmdata.pm:	bytecode.pl
++#	global.sym:	embed.pl
++#	regnodes.h:	regcomp.pl
++#	warnings.h lib/warnings.pm:	warnings.pl
  # The correct versions should be already supplied with the perl kit,
  # in case you don't have perl available.
  # To force them to run, type
@@@ -759,7 -764,7 +769,7 @@@ regen_headers 
  	$(INSTPERL) embed.pl
  	$(INSTPERL) bytecode.pl
  	$(INSTPERL) regcomp.pl
--	$(INSTPERL) warning.pl
++	$(INSTPERL) warnings.pl
  
  # VMS uses modified perly.[ch] with tags for globaldefs if using DEC compiler
  perly.c : [.vms]perly_c.vms
@@@ -871,6 -868,6 +881,9 @@@ $(ARCHCORE)op.h : op.
  $(ARCHCORE)opcode.h : opcode.h
  	@ If F$Search("$(ARCHDIR)CORE.dir").eqs."" Then Create/Directory $(ARCHCORE)
  	Copy/Log $(MMS$SOURCE) $(MMS$TARGET)
++$(ARCHCORE)opnames.h : opnames.h
++	@ If F$Search("$(ARCHDIR)CORE.dir").eqs."" Then Create/Directory $(ARCHCORE)
++	Copy/Log $(MMS$SOURCE) $(MMS$TARGET)
  $(ARCHCORE)patchlevel.h : patchlevel.h
  	@ If F$Search("$(ARCHDIR)CORE.dir").eqs."" Then Create/Directory $(ARCHCORE)
  	Copy/Log $(MMS$SOURCE) $(MMS$TARGET)
@@@ -928,12 -925,14 +941,12 @@@ $(ARCHCORE)util.h : util.
  $(ARCHCORE)vmsish.h : vmsish.h
  	@ If F$Search("$(ARCHDIR)CORE.dir").eqs."" Then Create/Directory $(ARCHCORE)
  	Copy/Log $(MMS$SOURCE) $(MMS$TARGET)
--$(ARCHCORE)warning.h : warning.h
++$(ARCHCORE)warnings.h : warnings.h
  	@ If F$Search("$(ARCHDIR)CORE.dir").eqs."" Then Create/Directory $(ARCHCORE)
  	Copy/Log $(MMS$SOURCE) $(MMS$TARGET)
 -.ifdef SOCKET
 -$(ARCHCORE)$(SOCKH) : $(SOCKH)
 +$(ARCHCORE)xsub.h : xsub.h
  	@ If F$Search("$(ARCHDIR)CORE.dir").eqs."" Then Create/Directory $(ARCHCORE)
  	Copy/Log $(MMS$SOURCE) $(MMS$TARGET)
 -.endif
  $(ARCHCORE)$(DBG)libperl$(OLB) : $(DBG)libperl$(OLB) $(DBG)perlshr_xtras.ts
  	@ If F$Search("$(ARCHDIR)CORE.dir").eqs."" Then Create/Directory $(ARCHCORE)
  	Copy/Log $(MMS$SOURCE) $(MMS$TARGET)
@@@ -954,81 -953,112 +967,81 @@@ $(ARCHAUTO)time.stamp 
  #util$(O) : util.c
  #	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
  # AUTOMATICALLY GENERATED MAKE DEPENDENCIES--PUT NOTHING BELOW THIS LINE
 -av$(O) : av.c EXTERN.h perl.h config.h embed.h perlsdio.h handy.h vmsish.h regexp.h sv.h util.h form.h gv.h cv.h opcode.h op.h cop.h av.h hv.h mg.h scope.h perly.h thread.h pp.h proto.h embedvar.h perlvars.h thrdvar.h intrpvar.h iperlsys.h pp_proto.h warning.h
 +.ifdef SOCKET
- $(SOCKOBJ) : $(SOCKC) extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warning.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
++$(SOCKOBJ) : $(SOCKC) extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h opnames.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
  	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
 -
 -deb$(O) : deb.c EXTERN.h perl.h config.h embed.h perlsdio.h handy.h vmsish.h regexp.h sv.h util.h form.h gv.h cv.h opcode.h op.h cop.h av.h hv.h mg.h scope.h perly.h thread.h pp.h proto.h embedvar.h perlvars.h thrdvar.h intrpvar.h iperlsys.h pp_proto.h warning.h
 +.endif
- av$(O) : av.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warning.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
++av$(O) : av.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h opnames.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
  	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
- deb$(O) : deb.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warning.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
 -
 -doio$(O) : doio.c EXTERN.h perl.h config.h embed.h perlsdio.h handy.h vmsish.h regexp.h sv.h util.h form.h gv.h cv.h opcode.h op.h cop.h av.h hv.h mg.h scope.h perly.h thread.h pp.h proto.h embedvar.h perlvars.h thrdvar.h intrpvar.h iperlsys.h pp_proto.h warning.h
++deb$(O) : deb.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h opnames.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
  	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
- doio$(O) : doio.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warning.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
 -
 -doop$(O) : doop.c EXTERN.h perl.h config.h embed.h perlsdio.h handy.h vmsish.h regexp.h sv.h util.h form.h gv.h cv.h opcode.h op.h cop.h av.h hv.h mg.h scope.h perly.h thread.h pp.h proto.h embedvar.h perlvars.h thrdvar.h intrpvar.h iperlsys.h pp_proto.h warning.h
++doio$(O) : doio.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h opnames.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
  	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
- doop$(O) : doop.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warning.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
 -
 -dump$(O) : dump.c EXTERN.h perl.h config.h embed.h perlsdio.h handy.h vmsish.h regexp.h sv.h util.h form.h gv.h cv.h opcode.h op.h cop.h av.h hv.h mg.h scope.h perly.h thread.h pp.h proto.h embedvar.h perlvars.h thrdvar.h intrpvar.h iperlsys.h pp_proto.h warning.h
++doop$(O) : doop.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h opnames.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
  	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
- dump$(O) : dump.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warning.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h regcomp.h regnodes.h
 -
 -globals$(O) : globals.c INTERN.h perl.h config.h embed.h perlsdio.h handy.h vmsish.h regexp.h sv.h util.h form.h gv.h cv.h opcode.h op.h cop.h av.h hv.h mg.h scope.h perly.h thread.h pp.h proto.h embedvar.h perlvars.h thrdvar.h intrpvar.h iperlsys.h pp_proto.h warning.h
++dump$(O) : dump.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h opnames.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h regcomp.h regnodes.h
  	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
- globals$(O) : globals.c intern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warning.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
 -
 -gv$(O) : gv.c EXTERN.h perl.h config.h embed.h perlsdio.h handy.h vmsish.h regexp.h sv.h util.h form.h gv.h cv.h opcode.h op.h cop.h av.h hv.h mg.h scope.h perly.h thread.h pp.h proto.h embedvar.h perlvars.h thrdvar.h intrpvar.h iperlsys.h pp_proto.h warning.h
++globals$(O) : globals.c intern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h opnames.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
  	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
- gv$(O) : gv.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warning.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
 -
 -hv$(O) : hv.c EXTERN.h perl.h config.h embed.h perlsdio.h handy.h vmsish.h regexp.h sv.h util.h form.h gv.h cv.h opcode.h op.h cop.h av.h hv.h mg.h scope.h perly.h thread.h pp.h proto.h embedvar.h perlvars.h thrdvar.h intrpvar.h iperlsys.h pp_proto.h warning.h
++gv$(O) : gv.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h opnames.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
  	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
- hv$(O) : hv.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warning.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
 -
 -malloc$(O) : malloc.c EXTERN.h perl.h config.h embed.h perlsdio.h handy.h vmsish.h regexp.h sv.h util.h form.h gv.h cv.h opcode.h op.h cop.h av.h hv.h mg.h scope.h perly.h thread.h pp.h proto.h embedvar.h perlvars.h thrdvar.h intrpvar.h iperlsys.h pp_proto.h warning.h
++hv$(O) : hv.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h opnames.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
  	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
- mg$(O) : mg.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warning.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
 -
 -mg$(O) : mg.c EXTERN.h perl.h config.h embed.h perlsdio.h handy.h vmsish.h regexp.h sv.h util.h form.h gv.h cv.h opcode.h op.h cop.h av.h hv.h mg.h scope.h perly.h thread.h pp.h proto.h embedvar.h perlvars.h thrdvar.h intrpvar.h iperlsys.h pp_proto.h warning.h
++mg$(O) : mg.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h opnames.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
  	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
- miniperlmain$(O) : miniperlmain.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warning.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
 -
 -miniperlmain$(O) : miniperlmain.c EXTERN.h perl.h config.h embed.h perlsdio.h handy.h vmsish.h regexp.h sv.h util.h form.h gv.h cv.h opcode.h op.h cop.h av.h hv.h mg.h scope.h perly.h thread.h pp.h proto.h embedvar.h perlvars.h thrdvar.h intrpvar.h iperlsys.h pp_proto.h warning.h
++miniperlmain$(O) : miniperlmain.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h opnames.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
  	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
- op$(O) : op.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warning.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
 -
 -op$(O) : op.c EXTERN.h perl.h config.h embed.h perlsdio.h handy.h vmsish.h regexp.h sv.h util.h form.h gv.h cv.h opcode.h op.h cop.h av.h hv.h mg.h scope.h perly.h thread.h pp.h proto.h embedvar.h perlvars.h thrdvar.h intrpvar.h iperlsys.h pp_proto.h warning.h
++op$(O) : op.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h opnames.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
  	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
- perl$(O) : perl.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warning.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h intrpvar.h thrdvar.h
 -
 -perl$(O) : perl.c EXTERN.h perl.h config.h embed.h perlsdio.h handy.h vmsish.h regexp.h sv.h util.h form.h gv.h cv.h opcode.h op.h cop.h av.h hv.h mg.h scope.h perly.h thread.h pp.h proto.h embedvar.h perlvars.h thrdvar.h intrpvar.h patchlevel.h iperlsys.h pp_proto.h warning.h
++perl$(O) : perl.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h opnames.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h intrpvar.h thrdvar.h
  	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
- perlio$(O) : perlio.c config.h extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warning.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
 -
 -perlio$(O) : perlio.c config.h EXTERN.h perl.h embed.h perlsdio.h handy.h vmsish.h regexp.h sv.h util.h form.h gv.h cv.h opcode.h op.h cop.h av.h hv.h mg.h scope.h perly.h thread.h pp.h proto.h embedvar.h perlvars.h thrdvar.h intrpvar.h iperlsys.h pp_proto.h warning.h
++perlio$(O) : perlio.c config.h extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h opnames.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
  	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
- perlmain$(O) : perlmain.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warning.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
 -
 -perlmain$(O) : perlmain.c EXTERN.h perl.h config.h embed.h perlsdio.h handy.h vmsish.h regexp.h sv.h util.h form.h gv.h cv.h opcode.h op.h cop.h av.h hv.h mg.h scope.h perly.h thread.h pp.h proto.h embedvar.h perlvars.h thrdvar.h intrpvar.h iperlsys.h pp_proto.h warning.h
++perlmain$(O) : perlmain.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h opnames.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
  	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
- perly$(O) : perly.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warning.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
 -
 -perly$(O) : perly.c EXTERN.h perl.h config.h embed.h perlsdio.h handy.h vmsish.h regexp.h sv.h util.h form.h gv.h cv.h opcode.h op.h cop.h av.h hv.h mg.h scope.h perly.h thread.h pp.h proto.h embedvar.h perlvars.h thrdvar.h intrpvar.h iperlsys.h pp_proto.h warning.h
++perly$(O) : perly.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h opnames.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
  	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
- pp$(O) : pp.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warning.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
 -
 -pp$(O) : pp.c EXTERN.h perl.h config.h embed.h perlsdio.h handy.h vmsish.h regexp.h sv.h util.h form.h gv.h cv.h opcode.h op.h cop.h av.h hv.h mg.h scope.h perly.h thread.h pp.h proto.h embedvar.h perlvars.h thrdvar.h intrpvar.h iperlsys.h pp_proto.h warning.h
++pp$(O) : pp.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h opnames.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
  	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
- pp_ctl$(O) : pp_ctl.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warning.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
 -
 -pp_ctl$(O) : pp_ctl.c EXTERN.h perl.h config.h embed.h perlsdio.h handy.h vmsish.h regexp.h sv.h util.h form.h gv.h cv.h opcode.h op.h cop.h av.h hv.h mg.h scope.h perly.h thread.h pp.h proto.h embedvar.h perlvars.h thrdvar.h intrpvar.h iperlsys.h pp_proto.h warning.h
++pp_ctl$(O) : pp_ctl.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h opnames.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
  	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
- pp_hot$(O) : pp_hot.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warning.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
 -
 -pp_hot$(O) : pp_hot.c EXTERN.h perl.h config.h embed.h perlsdio.h handy.h vmsish.h regexp.h sv.h util.h form.h gv.h cv.h opcode.h op.h cop.h av.h hv.h mg.h scope.h perly.h thread.h pp.h proto.h embedvar.h perlvars.h thrdvar.h intrpvar.h iperlsys.h pp_proto.h warning.h
++pp_hot$(O) : pp_hot.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h opnames.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
  	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
- pp_sys$(O) : pp_sys.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warning.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
 -
 -pp_sys$(O) : pp_sys.c EXTERN.h perl.h config.h embed.h perlsdio.h handy.h vmsish.h regexp.h sv.h util.h form.h gv.h cv.h opcode.h op.h cop.h av.h hv.h mg.h scope.h perly.h thread.h pp.h proto.h embedvar.h perlvars.h thrdvar.h intrpvar.h iperlsys.h pp_proto.h warning.h
++pp_sys$(O) : pp_sys.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h opnames.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
  	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
- regcomp$(O) : regcomp.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warning.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h intern.h regcomp.h regnodes.h
 -
 -regcomp$(O) : regcomp.c EXTERN.h perl.h config.h embed.h perlsdio.h handy.h vmsish.h regexp.h sv.h util.h form.h gv.h cv.h opcode.h op.h cop.h av.h hv.h mg.h scope.h perly.h thread.h pp.h proto.h embedvar.h perlvars.h thrdvar.h intrpvar.h INTERN.h regcomp.h regnodes.h iperlsys.h pp_proto.h warning.h
++regcomp$(O) : regcomp.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h opnames.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h intern.h regcomp.h regnodes.h
  	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
- regexec$(O) : regexec.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warning.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h regcomp.h regnodes.h
 -
 -regexec$(O) : regexec.c EXTERN.h perl.h config.h embed.h perlsdio.h handy.h vmsish.h regexp.h sv.h util.h form.h gv.h cv.h opcode.h op.h cop.h av.h hv.h mg.h scope.h perly.h thread.h pp.h proto.h embedvar.h perlvars.h thrdvar.h intrpvar.h regcomp.h regnodes.h iperlsys.h pp_proto.h warning.h
++regexec$(O) : regexec.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h opnames.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h regcomp.h regnodes.h
  	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
- run$(O) : run.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warning.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
 -
 -run$(O) : run.c EXTERN.h perl.h config.h embed.h perlsdio.h handy.h vmsish.h regexp.h sv.h util.h form.h gv.h cv.h opcode.h op.h cop.h av.h hv.h mg.h scope.h perly.h thread.h pp.h proto.h embedvar.h perlvars.h thrdvar.h intrpvar.h iperlsys.h pp_proto.h warning.h
++run$(O) : run.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h opnames.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
  	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
- scope$(O) : scope.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warning.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
 -
 -scope$(O) : scope.c EXTERN.h perl.h config.h embed.h perlsdio.h handy.h vmsish.h regexp.h sv.h util.h form.h gv.h cv.h opcode.h op.h cop.h av.h hv.h mg.h scope.h perly.h thread.h pp.h proto.h embedvar.h perlvars.h thrdvar.h intrpvar.h iperlsys.h pp_proto.h warning.h
++scope$(O) : scope.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h opnames.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
  	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
- sv$(O) : sv.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warning.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
 -
 -sv$(O) : sv.c EXTERN.h perl.h config.h embed.h perlsdio.h handy.h vmsish.h regexp.h sv.h util.h form.h gv.h cv.h opcode.h op.h cop.h av.h hv.h mg.h scope.h perly.h thread.h pp.h proto.h embedvar.h perlvars.h thrdvar.h intrpvar.h iperlsys.h pp_proto.h warning.h
++sv$(O) : sv.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h opnames.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
  	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
- taint$(O) : taint.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warning.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
 -
 -taint$(O) : taint.c EXTERN.h perl.h config.h embed.h perlsdio.h handy.h vmsish.h regexp.h sv.h util.h form.h gv.h cv.h opcode.h op.h cop.h av.h hv.h mg.h scope.h perly.h thread.h pp.h proto.h embedvar.h perlvars.h thrdvar.h intrpvar.h iperlsys.h pp_proto.h warning.h
++taint$(O) : taint.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h opnames.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
  	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
- toke$(O) : toke.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warning.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h keywords.h
 -
 -toke$(O) : toke.c EXTERN.h perl.h config.h embed.h perlsdio.h handy.h vmsish.h regexp.h sv.h util.h form.h gv.h cv.h opcode.h op.h cop.h av.h hv.h mg.h scope.h perly.h thread.h pp.h proto.h embedvar.h perlvars.h thrdvar.h intrpvar.h keywords.h iperlsys.h pp_proto.h warning.h
++toke$(O) : toke.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h opnames.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h keywords.h
  	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
- universal$(O) : universal.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warning.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h xsub.h
 -
 -universal$(O) : universal.c EXTERN.h perl.h config.h embed.h perlsdio.h handy.h vmsish.h regexp.h sv.h util.h form.h gv.h cv.h opcode.h op.h cop.h av.h hv.h mg.h scope.h perly.h thread.h pp.h proto.h embedvar.h perlvars.h thrdvar.h intrpvar.h XSUB.h iperlsys.h pp_proto.h warning.h
++universal$(O) : universal.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h opnames.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h xsub.h
  	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
- utf8$(O) : utf8.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warning.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
 -
 -utf8$(O) : utf8.c EXTERN.h perl.h config.h embed.h perlsdio.h handy.h vmsish.h regexp.h sv.h util.h form.h gv.h cv.h opcode.h op.h cop.h av.h hv.h mg.h scope.h perly.h thread.h pp.h proto.h embedvar.h perlvars.h thrdvar.h intrpvar.h iperlsys.h pp_proto.h warning.h
++utf8$(O) : utf8.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h opnames.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
  	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
- util$(O) : util.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warning.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
 -
 -util$(O) : util.c EXTERN.h perl.h config.h embed.h perlsdio.h handy.h vmsish.h regexp.h sv.h util.h form.h gv.h cv.h opcode.h op.h cop.h av.h hv.h mg.h scope.h perly.h thread.h pp.h proto.h embedvar.h perlvars.h thrdvar.h intrpvar.h iperlsys.h pp_proto.h warning.h
++util$(O) : util.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h opnames.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
  	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
- vms$(O) : vms.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warning.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h xsub.h
 -
 -vms$(O) : vms.c EXTERN.h perl.h config.h embed.h perlsdio.h handy.h vmsish.h regexp.h sv.h util.h form.h gv.h cv.h opcode.h op.h cop.h av.h hv.h mg.h scope.h perly.h thread.h pp.h proto.h embedvar.h perlvars.h thrdvar.h intrpvar.h XSUB.h iperlsys.h pp_proto.h warning.h
++vms$(O) : vms.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h regexp.h sv.h util.h form.h gv.h cv.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h opnames.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h xsub.h
  	$(CC) $(CORECFLAGS) $(MMS$SOURCE)
  
 -#[.x2p]a2p$(O) : [.x2p]a2p.c [.x2p]a2py.c [.x2p]INTERN.h [.x2p]a2p.h [.x2p]hash.h [.x2p]str.h config.h handy.h
 -#	$(CC) $(X2PCFLAGS) $(MMS$SOURCE)
 -
 -[.x2p]hash$(O) : [.x2p]hash.c [.x2p]EXTERN.h [.x2p]a2p.h [.x2p]hash.h [.x2p]str.h [.x2p]util.h config.h handy.h
 +[.x2p]hash$(O) : [.x2p]hash.c [.x2p]EXTERN.h [.x2p]a2p.h [.x2p]hash.h [.x2p]str.h [.x2p]util.h config.h handy.h vmsish.h $(SOCKH)
  	$(CC) $(X2PCFLAGS) $(MMS$SOURCE)
  
 -[.x2p]str$(O) : [.x2p]str.c [.x2p]EXTERN.h [.x2p]a2p.h [.x2p]hash.h [.x2p]str.h [.x2p]util.h config.h handy.h
 +[.x2p]str$(O) : [.x2p]str.c [.x2p]EXTERN.h [.x2p]a2p.h [.x2p]hash.h [.x2p]str.h [.x2p]util.h config.h handy.h vmsish.h $(SOCKH)
  	$(CC) $(X2PCFLAGS) $(MMS$SOURCE)
  
 -[.x2p]util$(O) : [.x2p]util.c [.x2p]EXTERN.h [.x2p]INTERN.h [.x2p]a2p.h [.x2p]hash.h [.x2p]str.h [.x2p]util.h config.h handy.h
 +[.x2p]util$(O) : [.x2p]util.c [.x2p]EXTERN.h [.x2p]INTERN.h [.x2p]a2p.h [.x2p]hash.h [.x2p]str.h [.x2p]util.h config.h handy.h vmsish.h $(SOCKH)
  	$(CC) $(X2PCFLAGS) $(MMS$SOURCE)
  
 -[.x2p]walk$(O) : [.x2p]walk.c [.x2p]EXTERN.h [.x2p]a2p.h [.x2p]hash.h [.x2p]str.h [.x2p]util.h config.h handy.h
 +[.x2p]walk$(O) : [.x2p]walk.c [.x2p]EXTERN.h [.x2p]a2p.h [.x2p]hash.h [.x2p]str.h [.x2p]util.h config.h handy.h vmsish.h $(SOCKH)
  	$(CC) $(X2PCFLAGS) $(MMS$SOURCE)
  
  # End of automatically generated make dependencies
diff --cc vms/gen_shrfls.pl
index 05d0f27,ef76a68..caba95c
--- a/vms/gen_shrfls.pl
+++ b/vms/gen_shrfls.pl
@@@ -197,14 -199,23 +199,14 @@@ sub scan_func 
    }
  }
  
 -open FUNCS, "LIBR/CROSS=SYMB LIBPERL.OLB/OUT=SYS\$OUTPUT |";
 -foreach (<FUNCS>) {
 -    chomp;
 -    next unless /(perl_\w+)/i;
 -    $fcns{uc($1)}++;
 -}
 -
  # Go add some right up front if we need 'em
  if ($use_mymalloc) {
-   $fcns{'Perl_malloc'}++;
-   $fcns{'Perl_calloc'}++;
-   $fcns{'Perl_realloc'}++;
-   $fcns{'Perl_mfree'}++;
+   $fcns{uc('Perl_malloc')}++;
+   $fcns{uc('Perl_calloc')}++;
+   $fcns{uc('Perl_realloc')}++;
+   $fcns{uc('Perl_mfree')}++;
  }
  
 -delete $fcns{PERL_DESTRUCT_LEVEL} if exists $fcns{PERL_DESTRUCT_LEVEL};
 -
  $used_expectation_enum = $used_opcode_enum = 0; # avoid warnings
  if ($docc) {
    open(CPP,"${cc_cmd}/NoObj/PreProc=Sys\$Output ${dir}perl.h|")
@@@ -306,6 -317,22 +308,7 @@@ if ($isvax) 
      or die "$0: Can't write to ${dir}perlshr_gbl${marord}.mar: $!\n";
    print MAR "\t.title perlshr_gbl$marord\n";
  }
+ 
 -($ver, $sub) = $] =~ /\.(\d\d\d)(\d\d)/;
 -$gsmatch = ($sub >= 50) ? "equal" : "lequal";	# Force an equal match for
 -						# dev, but be more forgiving
 -						# for releases
 -
 -# Build up a major ID. Since it can only be 8 bits, we encode the version
 -# number in the top four bits and use the bottom four for build options
 -# that'll cause incompatibilities
 -$ver *=16;
 -$ver += 8 if $debugging_enabled;	# If DEBUGGING is set
 -$ver += 4 if $use_threads;		# if we're threaded
 -$ver += 2 if $use_mymalloc;		# if we're using perl's malloc
 -
 -print OPTBLD "GSMATCH=$gsmatch,$ver,$sub\n";
 -
  unless ($isgcc) {
    print OPTBLD "PSECT_ATTR=\$GLOBAL_RO_VARS,PIC,NOEXE,RD,NOWRT,SHR\n";
    print OPTBLD "PSECT_ATTR=\$GLOBAL_RW_VARS,PIC,NOEXE,RD,WRT,NOSHR\n";
@@@ -391,9 -418,9 +394,26 @@@ if ($isvax) 
  # Initial hack to permit building of compatible shareable images for a
  # given version of Perl.
  if ($ENV{PERLSHR_USE_GSMATCH}) {
--  my $major = int($] * 1000)                        & 0xFF;  # range 0..255
--  my $minor = int(($] * 1000 - $major) * 100 + 0.5) & 0xFF;  # range 0..255
--  print OPTBLD "GSMATCH=LEQUAL,$major,$minor\n";
++  if ($ENV{PERLSHR_USE_GSMATCH} eq 'INCLUDE_COMPILE_OPTIONS') {
++    # Build up a major ID. Since it can only be 8 bits, we encode the version
++    # number in the top four bits and use the bottom four for build options
++    # that'll cause incompatibilities
++    ($ver, $sub) = $] =~ /\.(\d\d\d)(\d\d)/;
++    $gsmatch = ($sub >= 50) ? "equal" : "lequal"; # Force an equal match for
++						  # dev, but be more forgiving
++						  # for releases
++
++    $ver *=16;
++    $ver += 8 if $debugging_enabled;	# If DEBUGGING is set
++    $ver += 4 if $use_threads;		# if we're threaded
++    $ver += 2 if $use_mymalloc;		# if we're using perl's malloc
++    print OPTBLD "GSMATCH=$gsmatch,$ver,$sub\n";
++  }
++  else {
++    my $major = int($] * 1000)                        & 0xFF;  # range 0..255
++    my $minor = int(($] * 1000 - $major) * 100 + 0.5) & 0xFF;  # range 0..255
++    print OPTBLD "GSMATCH=LEQUAL,$major,$minor\n";
++  }
    print OPTBLD 'CLUSTER=$$TRANSFER_VECTOR,,',
                 map(",$_$objsuffix",@symfiles), "\n";
  }
diff --cc vms/perly_c.vms
index fc79a26,ad94f1e..08fa561
--- a/vms/perly_c.vms
+++ b/vms/perly_c.vms
@@@ -19,29 -32,47 +32,47 @@@ struct ysv 
  
  static void yydestruct(pTHXo_ void *ptr);
  
- #line 27 "perly.y"
+ #line 49 "perly.y"
+ #if 0 /* get this from perly.h instead */
+ #line 52 "perly.y"
+ typedef union {
+     I32	ival;
+     char *pval;
+     OP *opval;
+     GV *gvval;
+ } YYSTYPE;
+ #line 60 "perly.y"
+ #endif /* 0 */
+ 
+ #ifdef USE_PURE_BISON
+ #define YYLEX_PARAM (&yychar)
+ #endif
+ 
 -#line 52 "perly.c"
++#line 51 "perly.c"
  #define YYERRCODE 256
- static short yylhs[] = {                                 -1,
-    46,    0,    9,    7,   10,    8,   11,   11,   11,   12,
-    12,   12,   12,   25,   25,   25,   25,   25,   25,   25,
-    15,   15,   15,   14,   14,   43,   43,   13,   13,   13,
-    13,   13,   13,   13,   27,   27,   28,   28,   29,   30,
-    31,   32,   33,   45,   45,    1,    1,    1,    1,    3,
-    39,   39,   47,    4,    5,    6,   40,   41,   41,   42,
-    42,   48,   48,   50,   49,   16,   16,   16,   26,   26,
-    26,   37,   37,   37,   37,   37,   37,   37,   37,   51,
-    37,   38,   38,   18,   18,   18,   18,   18,   18,   18,
-    18,   18,   18,   18,   17,   17,   17,   17,   17,   17,
-    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
-    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
-    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
+ static short yylhs[] = {                                        -1,
+    50,    0,    8,    6,    9,    7,   10,   10,   10,   11,
+    11,   11,   11,   24,   24,   24,   24,   24,   24,   24,
+    14,   14,   14,   13,   13,   42,   42,   12,   12,   12,
+    12,   12,   12,   12,   26,   26,   27,   27,   28,   29,
+    30,   31,   32,   49,   49,    1,    1,    1,    1,    1,
+     2,   38,   38,   46,   51,    3,    4,    5,   39,   40,
+    40,   44,   44,   44,   45,   45,   41,   41,   52,   52,
+    54,   53,   15,   15,   15,   25,   25,   25,   36,   36,
+    36,   36,   36,   36,   36,   36,   55,   36,   37,   37,
     17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
-    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
-    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
-    17,   17,   34,   34,   35,   35,   35,    2,    2,   44,
-    24,   19,   20,   21,   22,   23,   36,   36,   36,   36,
+    17,   16,   16,   16,   16,   16,   16,   16,   16,   16,
+    16,   16,   16,   16,   16,   16,   16,   16,   16,   16,
+    16,   16,   16,   16,   16,   16,   16,   16,   16,   16,
+    16,   16,   16,   16,   16,   16,   16,   16,   16,   16,
+    16,   16,   16,   16,   16,   16,   16,   16,   16,   16,
+    16,   16,   16,   16,   16,   16,   16,   16,   16,   16,
+    16,   16,   16,   16,   16,   16,   16,   16,   16,   16,
+    47,   47,   48,   48,   48,   48,   48,   33,   33,   34,
+    34,   34,   43,   23,   18,   19,   20,   21,   22,   35,
+    35,   35,   35,
  };
- static short yylen[] = {                                  2,
+ static short yylen[] = {                                         2,
      0,    2,    4,    0,    4,    0,    0,    2,    2,    2,
      1,    2,    3,    1,    1,    3,    3,    3,    3,    3,
      0,    2,    6,    7,    7,    0,    2,    8,    8,   10,
@@@ -1342,9 -1358,17 +1358,17 @@@ static char *yyrule[] = 
  #define YYMAXDEPTH 500
  #endif
  #endif
- #line 666 "perly.y"
+ #line 726 "perly.y"
   /* PROGRAM */
- #line 1427 "perly.c"
+ 
+ /* more stuff added to make perly_c.diff easier to apply */
+ 
+ #ifdef yyparse
+ #undef yyparse
+ #endif
+ #define yyparse() Perl_yyparse(pTHX)
+ 
 -#line 1372 "perly.c"
++#line 1371 "perly.c"
  #define YYABORT goto yyabort
  #define YYACCEPT goto yyaccept
  #define YYERROR goto yyerrlab
@@@ -2269,95 -2302,115 +2302,115 @@@ case 164
  { yyval.opval = newUNOP(OP_ENTERSUB, OPf_STACKED,
  				scalar(yyvsp[0].opval)); }
  break;
- case 157:
- #line 598 "perly.y"
+ case 165:
+ #line 644 "perly.y"
  { yyval.opval = newOP(yyvsp[-2].ival, OPf_SPECIAL); }
  break;
- case 158:
- #line 600 "perly.y"
+ case 166:
+ #line 646 "perly.y"
  { yyval.opval = newUNOP(yyvsp[-3].ival, 0, yyvsp[-1].opval); }
  break;
- case 159:
- #line 602 "perly.y"
+ case 167:
+ #line 648 "perly.y"
  { yyval.opval = pmruntime(yyvsp[-3].opval, yyvsp[-1].opval, Nullop); }
  break;
- case 160:
- #line 604 "perly.y"
+ case 168:
+ #line 650 "perly.y"
  { yyval.opval = pmruntime(yyvsp[-5].opval, yyvsp[-3].opval, yyvsp[-1].opval); }
  break;
- case 163:
- #line 610 "perly.y"
- { yyval.opval = Nullop; }
+ case 171:
+ #line 656 "perly.y"
+ { yyval.opval = my_attrs(yyvsp[-1].opval,yyvsp[0].opval); }
  break;
- case 164:
- #line 612 "perly.y"
+ case 172:
+ #line 658 "perly.y"
+ { yyval.opval = localize(yyvsp[0].opval,yyvsp[-1].ival); }
+ break;
+ case 173:
+ #line 662 "perly.y"
+ { yyval.opval = sawparens(yyvsp[-1].opval); }
+ break;
+ case 174:
+ #line 664 "perly.y"
+ { yyval.opval = sawparens(newNULLLIST()); }
+ break;
+ case 175:
+ #line 666 "perly.y"
  { yyval.opval = yyvsp[0].opval; }
  break;
- case 165:
- #line 616 "perly.y"
+ case 176:
+ #line 668 "perly.y"
+ { yyval.opval = yyvsp[0].opval; }
+ break;
+ case 177:
+ #line 670 "perly.y"
+ { yyval.opval = yyvsp[0].opval; }
+ break;
+ case 178:
+ #line 674 "perly.y"
  { yyval.opval = Nullop; }
  break;
- case 166:
- #line 618 "perly.y"
+ case 179:
+ #line 676 "perly.y"
  { yyval.opval = yyvsp[0].opval; }
  break;
- case 167:
- #line 620 "perly.y"
- { yyval.opval = yyvsp[-1].opval; }
+ case 180:
+ #line 680 "perly.y"
+ { yyval.opval = Nullop; }
  break;
- case 168:
- #line 623 "perly.y"
- { yyval.ival = 0; }
+ case 181:
+ #line 682 "perly.y"
+ { yyval.opval = yyvsp[0].opval; }
  break;
- case 169:
- #line 624 "perly.y"
- { yyval.ival = 1; }
+ case 182:
+ #line 684 "perly.y"
+ { yyval.opval = yyvsp[-1].opval; }
  break;
- case 170:
- #line 628 "perly.y"
+ case 183:
+ #line 688 "perly.y"
  { PL_in_my = 0; yyval.opval = my(yyvsp[0].opval); }
  break;
- case 171:
- #line 632 "perly.y"
+ case 184:
+ #line 692 "perly.y"
  { yyval.opval = newCVREF(yyvsp[-1].ival,yyvsp[0].opval); }
  break;
- case 172:
- #line 636 "perly.y"
+ case 185:
+ #line 696 "perly.y"
  { yyval.opval = newSVREF(yyvsp[0].opval); }
  break;
- case 173:
- #line 640 "perly.y"
+ case 186:
+ #line 700 "perly.y"
  { yyval.opval = newAVREF(yyvsp[0].opval); }
  break;
- case 174:
- #line 644 "perly.y"
+ case 187:
+ #line 704 "perly.y"
  { yyval.opval = newHVREF(yyvsp[0].opval); }
  break;
- case 175:
- #line 648 "perly.y"
+ case 188:
+ #line 708 "perly.y"
  { yyval.opval = newAVREF(yyvsp[0].opval); }
  break;
- case 176:
- #line 652 "perly.y"
+ case 189:
+ #line 712 "perly.y"
  { yyval.opval = newGVREF(0,yyvsp[0].opval); }
  break;
- case 177:
- #line 656 "perly.y"
+ case 190:
+ #line 716 "perly.y"
  { yyval.opval = scalar(yyvsp[0].opval); }
  break;
- case 178:
- #line 658 "perly.y"
+ case 191:
+ #line 718 "perly.y"
  { yyval.opval = scalar(yyvsp[0].opval);  }
  break;
- case 179:
- #line 660 "perly.y"
+ case 192:
+ #line 720 "perly.y"
  { yyval.opval = scope(yyvsp[0].opval); }
  break;
- case 180:
- #line 663 "perly.y"
+ case 193:
+ #line 723 "perly.y"
  { yyval.opval = yyvsp[0].opval; }
  break;
- #line 2365 "perly.c"
 -#line 2414 "perly.c"
++#line 2412 "perly.c"
      }
      yyssp -= yym;
      yystate = *yyssp;