[Cool-str.pm] improved error reporting

There was a () missing on a .perl in an interpolation. This can never have worked properly. Does now.
rakudo · Nov 13, 2010 · 015d77b · 015d77b
1 parent c548b87
commit 015d77b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/Cool-str.pm b/src/core/Cool-str.pm
@@ -179,7 +179,7 @@ augment class Cool {
 
         my %c;
         for (@changes) -> $p {
-            die "$p.perl is not a Pair" unless $p ~~ Pair;
+            die "$p.perl() is not a Pair" unless $p ~~ Pair;
             my @from = expand $p.key;
             my @to   = expand $p.value;
             if @to {