Detect and complain about missing pir::op signature.

rakudo · Jul 21, 2012 · 605574c · 605574c
1 parent ed9292f
commit 605574c
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/QPerl6/Actions.pm b/src/QPerl6/Actions.pm
@@ -3413,6 +3413,9 @@ class QPerl6::Actions is HLL::Actions {
             nqp::die("pir::op forbidden in safe mode\n");
         }
         my $pirop := nqp::join(' ', nqp::split('__', ~$<op>));
+        unless nqp::index($pirop, ' ') > 0 {
+            nqp::die("pir::$pirop missing a signature");
+        }
         my $past := QAST::VM.new( :pirop($pirop), :node($/) );
         if $<args> {
             for $<args>[0].ast.list {