From 636a2b6f7cb4d0b5c0d4944482918137a0713615 Mon Sep 17 00:00:00 2001
From: jnthn <jnthn@jnthn.net>
Date: Fri, 5 Jun 2009 12:44:41 +0200
Subject: [PATCH] Fix one half of what is reported in RT#65128 - our T1 T2 sub
 f() { ... } now gives a compile time error like STD.

---
 src/parser/actions.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/parser/actions.pm b/src/parser/actions.pm
index 3bf2884e5ec..2afeedaf7ac 100644
--- a/src/parser/actions.pm
+++ b/src/parser/actions.pm
@@ -1865,6 +1865,9 @@ method scoped($/) {
             }
         }
         elsif $past.isa(PAST::Block) && $<fulltypename> {
+            if +$<fulltypename> > 1 {
+                $/.panic("Multiple prefix constraints not yet supported");
+            }
             $past.loadinit().push(PAST::Op.new(
                 :pasttype('call'),
                 :name('!sub_trait_verb'),