A new version of the "remove UPPERACSE string comparison"

operators.  The problem with the previous one (change #6454)
was that it was for Perl 5.6.0.  From Paul Marquess.

p4raw-link: @6454 on //depot/perl: d164fe835174420df93c1795763a090dc6471f0a

p4raw-id: //depot/perl@6466

1 files changed, 0 insertions, 16 deletions

diff --git a/toke.c b/toke.c
index 130d5c4106..2887a211c8 100644
--- a/toke.c
+++ b/toke.c
@@ -5146,7 +5146,6 @@ Perl_keyword(pTHX_ register char *d, I32 len)
 	}
 	break;
     case 'E':
-	if (strEQ(d,"EQ")) { deprecate(d);	return -KEY_eq;}
 	if (strEQ(d,"END"))			return KEY_END;
 	break;
     case 'e':
@@ -5212,12 +5211,6 @@ Perl_keyword(pTHX_ register char *d, I32 len)
 	    break;
 	}
 	break;
-    case 'G':
-	if (len == 2) {
-	    if (strEQ(d,"GT")) { deprecate(d);	return -KEY_gt;}
-	    if (strEQ(d,"GE")) { deprecate(d);	return -KEY_ge;}
-	}
-	break;
     case 'g':
 	if (strnEQ(d,"get",3)) {
 	    d += 3;
@@ -5317,12 +5310,6 @@ Perl_keyword(pTHX_ register char *d, I32 len)
 	    if (strEQ(d,"kill"))		return -KEY_kill;
 	}
 	break;
-    case 'L':
-	if (len == 2) {
-	    if (strEQ(d,"LT")) { deprecate(d);	return -KEY_lt;}
-	    if (strEQ(d,"LE")) { deprecate(d);	return -KEY_le;}
-	}
-	break;
     case 'l':
 	switch (len) {
 	case 2:
@@ -5374,9 +5361,6 @@ Perl_keyword(pTHX_ register char *d, I32 len)
 	    break;
 	}
 	break;
-    case 'N':
-	if (strEQ(d,"NE")) { deprecate(d);	return -KEY_ne;}
-	break;
     case 'n':
 	if (strEQ(d,"next"))			return KEY_next;
 	if (strEQ(d,"ne"))			return -KEY_ne;