Forbid null operators.

Adds a typed exception for them also.
rakudo · Mar 8, 2013 · f27a139 · f27a139
1 parent 085f746
commit f27a139
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -3402,6 +3402,11 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
     method add_categorical($category, $opname, $canname, $subname, $declarand?) {
         my $self := self;
 
+        # Ensure it's not a null name.
+        if $opname eq '' {
+            self.typed_panic('X::Syntax::Extension::Null');
+        }
+
         # If we already have the required operator in the grammar, just return.
         if nqp::can(self, $canname) {
             return 1;

diff --git a/src/core/Exception.pm b/src/core/Exception.pm
@@ -842,6 +842,12 @@ my class X::Syntax::Extension::Category does X::Syntax {
     }
 }
 
+my class X::Syntax::Extension::Null does X::Syntax {
+    method message() {
+        "Null operator is not allowed";
+    }
+}
+
 my class X::Syntax::InfixInTermPosition does X::Syntax {
     has $.infix;
     method message() {