From: Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Date: Tue, 30 Sep 1997 15:11:07 +0000 (+0000)
Subject: Merge maint-5.004 branch (5.004_01) with mainline.
X-Git-Tag: accepted/trunk/20130322.191538~38039
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=8206a063cdc1c193b12df1a45cb3a0ee430b5077;p=platform%2Fupstream%2Fperl.git

Merge maint-5.004 branch (5.004_01) with mainline.

p4raw-id: //depot/perl@84
---

8206a063cdc1c193b12df1a45cb3a0ee430b5077
diff --cc Makefile.SH
index dc5111a,61d2ca4..e18c3d6
mode 100644,100755..100644
--- a/Makefile.SH
+++ b/Makefile.SH
diff --cc Porting/makerel
index 0000000,0476ab5..0476ab5
mode 000000,100755..100644
--- a/Porting/makerel
+++ b/Porting/makerel
diff --cc Porting/patchls
index 0000000,b3e968d..b3e968d
mode 000000,100755..100644
--- a/Porting/patchls
+++ b/Porting/patchls
diff --cc op.c
index b21c26d,e37b23a..1973507
--- a/op.c
+++ b/op.c
@@@ -1031,14 -980,15 +1031,15 @@@ I32 type
      OP *kid;
      SV *sv;
  
 -    if (!op || error_count)
 -	return op;
 +    if (!o || error_count)
 +	return o;
  
 -    switch (op->op_type) {
 +    switch (o->op_type) {
      case OP_UNDEF:
+ 	modcount++;
 -	return op;
 +	return o;
      case OP_CONST:
 -	if (!(op->op_private & (OPpCONST_ARYBASE)))
 +	if (!(o->op_private & (OPpCONST_ARYBASE)))
  	    goto nomod;
  	if (eval_start && eval_start->op_type == OP_CONST) {
  	    compiling.cop_arybase = (I32)SvIV(((SVOP*)eval_start)->op_sv);
@@@ -2063,10 -2006,11 +2064,11 @@@ OP *repl
      PMOP *pm;
      LOGOP *rcop;
  
 -    if (op->op_type == OP_TRANS)
 -	return pmtrans(op, expr, repl);
 +    if (o->op_type == OP_TRANS)
 +	return pmtrans(o, expr, repl);
  
+     hints |= HINT_BLOCK_SCOPE;
 -    pm = (PMOP*)op;
 +    pm = (PMOP*)o;
  
      if (expr->op_type == OP_CONST) {
  	STRLEN plen;
diff --cc perl_exp.SH
index ef79876,06b587f..06b587f
mode 100644,100755..100644
--- a/perl_exp.SH
+++ b/perl_exp.SH
diff --cc pod/roffitall
index d69054f,cbd19af..cbd19af
mode 100644,100755..100644
--- a/pod/roffitall
+++ b/pod/roffitall
diff --cc regcomp.c
index 516cfef,0e9846c..43b5164
--- a/regcomp.c
+++ b/regcomp.c
@@@ -1663,19 -1661,25 +1665,25 @@@ char *o
  	p = "NBOUNDL";
  	break;
      case CURLY:
 -	sv_catpvf(sv, "CURLY {%d,%d}", ARG1(op), ARG2(op));
 +	sv_catpvf(sv, "CURLY {%d,%d}", ARG1(o), ARG2(o));
  	break;
      case CURLYX:
 -	sv_catpvf(sv, "CURLYX {%d,%d}", ARG1(op), ARG2(op));
 +	sv_catpvf(sv, "CURLYX {%d,%d}", ARG1(o), ARG2(o));
  	break;
      case REF:
 -	sv_catpvf(sv, "REF%d", ARG1(op));
 +	sv_catpvf(sv, "REF%d", ARG1(o));
  	break;
+     case REFF:
 -	sv_catpvf(sv, "REFF%d", ARG1(op));
++	sv_catpvf(sv, "REFF%d", ARG1(o));
+ 	break;
+     case REFFL:
 -	sv_catpvf(sv, "REFFL%d", ARG1(op));
++	sv_catpvf(sv, "REFFL%d", ARG1(o));
+ 	break;
      case OPEN:
 -	sv_catpvf(sv, "OPEN%d", ARG1(op));
 +	sv_catpvf(sv, "OPEN%d", ARG1(o));
  	break;
      case CLOSE:
 -	sv_catpvf(sv, "CLOSE%d", ARG1(op));
 +	sv_catpvf(sv, "CLOSE%d", ARG1(o));
  	p = NULL;
  	break;
      case STAR: