X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=toke.c;h=78ae3869676a477edec71c4b2c2af28d696b81ba;hb=2ddcc7aa6c936ba8e7a9703319dfd8959bb54574;hp=dd5e2328baa2cdf70372ea85bb931d40dde6349e;hpb=72aaf6313309039c851862ad50ee168cb9cdf42b;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/toke.c b/toke.c
index dd5e232..78ae386 100644
--- a/toke.c
+++ b/toke.c
@@ -2739,7 +2739,7 @@ yylex()
 	case KEY_DESTROY:
 	case KEY_BEGIN:
 	case KEY_END:
-	case KEY_RESTART:
+	case KEY_INIT:
 	    if (expect == XSTATE) {
 		s = bufptr;
 		goto really_sub;
@@ -3931,6 +3931,9 @@ I32 len;
     case 'h':
 	if (strEQ(d,"hex"))			return -KEY_hex;
 	break;
+    case 'I':
+	if (strEQ(d,"INIT"))			return KEY_INIT;
+	break;
     case 'i':
 	switch (len) {
 	case 2:
@@ -4070,9 +4073,6 @@ I32 len;
 	}
 	else if (strEQ(d,"quotemeta"))		return -KEY_quotemeta;
 	break;
-    case 'R':
-	if (strEQ(d,"RESTART"))			return KEY_RESTART;
-	break;
     case 'r':
 	switch (len) {
 	case 3:
@@ -5243,8 +5243,6 @@ U32 flags;
     CvOWNER(compcv) = 0;
     New(666, CvMUTEXP(compcv), 1, perl_mutex);
     MUTEX_INIT(CvMUTEXP(compcv));
-    New(666, CvCONDP(compcv), 1, perl_cond);
-    COND_INIT(CvCONDP(compcv));
 #endif /* USE_THREADS */
 
     comppadlist = newAV();
@@ -5258,8 +5256,6 @@ U32 flags;
     CvOWNER(compcv) = 0;
     New(666, CvMUTEXP(compcv), 1, perl_mutex);
     MUTEX_INIT(CvMUTEXP(compcv));
-    New(666, CvCONDP(compcv), 1, perl_cond);
-    COND_INIT(CvCONDP(compcv));
 #endif /* USE_THREADS */
 
     return oldsavestack_ix;