disallow our($foo::bar)

p4raw-id: //depot/perl@4857

1 files changed, 4 insertions, 0 deletions

diff --git a/toke.c b/toke.c
index e2e10f2404..6f9f70cd11 100644
--- a/toke.c
+++ b/toke.c
@@ -1976,6 +1976,10 @@ Perl_yylex(pTHX)
 	*/
 	if (PL_in_my) {
 	    if (PL_in_my == KEY_our) {	/* "our" is merely analogous to "my" */
+		if (strchr(PL_tokenbuf,':'))
+		    yyerror(Perl_form(aTHX_ "No package name allowed for "
+				      "variable %s in \"our\"",
+				      PL_tokenbuf));
 		tmp = pad_allocmy(PL_tokenbuf);
 	    }
 	    else {