Ensure a CATCH actually handles the exception in question.

Raku · Oct 24, 2011 · 2881bb5 · 2881bb5
1 parent 327258f
commit 2881bb5
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/S04-statements/try.t b/S04-statements/try.t
@@ -108,10 +108,12 @@ plan 18;
     try {
         ().abc;
         CATCH {
-            $str ~= 'A';
-            if 'foo' ~~ /foo/ {
-                $str ~= 'B';
-                $str ~= $/;
+            default {
+                $str ~= 'A';
+                if 'foo' ~~ /foo/ {
+                    $str ~= 'B';
+                    $str ~= $/;
+                }
             }
         }
     }