diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-07-27 14:03:02 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-07-27 14:03:02 +0000 |
| commit | d164fe835174420df93c1795763a090dc6471f0a (patch) | |
| tree | 4b4aa5533ffcf50b05aff5d86623ddf5ab53b341 /toke.c | |
| parent | 65841adfea0063c2125e7f78a10d9963c5625f4f (diff) | |
| download | perl-d164fe835174420df93c1795763a090dc6471f0a.tar.gz | |
Remove EQ, NE, GT, LT, GE, LE (they have been deprecated
for a long time).
Reported in
Subject: [ID 20000717.004] Unexpected complaint of NE deprecation
From: Ryan Herbert <rherbert@sycamorehq.com>
Date: Mon, 17 Jul 2000 11:40:42 -0400
Message-Id: <200007171540.LAA20480@beorn.hq.sai>
Patched in
Subject: RE: [ID 20000717.004] Unexpected complaint of NE deprecation
From: "Paul Marquess" <Paul.Marquess@btinternet.com>
Date: Wed, 26 Jul 2000 23:40:18 +0100
Message-ID: <000001bff752$79511880$0a17073e@tiny>
based on an earlier patch from Stephen P. Potter.
(Removed later by change #6458 because this patch was for
perl 5.6.0, not perl-current)
p4raw-link: @6458 (not found)
p4raw-id: //depot/perl@6454
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 16 |
1 files changed, 0 insertions, 16 deletions
@@ -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; |