Changeset 21845 for src/perl6

Timestamp:

08/08/08 10:35:32 (4 months ago)

Author:

pmurias

Message:

[STD] handles errors from an eval (grammars need a lineof)

Files:

• src/perl6/Cursor.pmc (modified) (1 diff)

src/perl6/Cursor.pmc

@@ -644 +644 @@
                     };
 END
+                    if ($@) {
+                        die;
+                    }
                     my $result = $matcher->($C, @_);
                     if ($result) {