[Yapsi] blocks now return values

masak · Apr 26, 2010 · 83071dc · 83071dc
1 parent d370ddf
commit 83071dc
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/lib/Yapsi.pm b/lib/Yapsi.pm
@@ -204,9 +204,11 @@ class Yapsi::Compiler {
     }
 
     multi method sicify(Match $/, 'block') {
+        my ($register, $variable);
         for $<statementlist><statement> -> $statement {
-            self.sicify($statement, 'statement');
+            ($register, $variable) = self.sicify($statement, 'statement');
         }
+        return ($register, $variable);
     }
 
     multi method sicify(Match $/, $node) {