deprecate use of reserved word "our" (Larry's idea)

	Message-Id: <199806221555.IAA07212@wall.org>
	Subject: Re: our

p4raw-id: //depot/perl@1276

1 files changed, 2 insertions, 0 deletions

diff --git a/toke.c b/toke.c
index c734fc8813..5d0f8f3e17 100644
--- a/toke.c
+++ b/toke.c
@@ -4399,6 +4399,8 @@ keyword(register char *d, I32 len)
 	case 3:
 	    if (strEQ(d,"ord"))			return -KEY_ord;
 	    if (strEQ(d,"oct"))			return -KEY_oct;
+	    if (strEQ(d,"our")) { deprecate("reserved keyword \"our\"");
+						return 0;}
 	    break;
 	case 4:
 	    if (strEQ(d,"open"))		return -KEY_open;