| CODENOTIFIER | HelpYou are not signed inSign in |
Project: Rakudo
Revision: 30835
Author: pmichaud
Date: 06 Sep 2008 17:34:07
Changes:[rakudo]: Restore Code.REJECTS, but have it set $/ like Code.ACCEPTS does.
This is a workaround until we have infix_prefix_meta_operator:<!> implemented.
| ...... | @@ -37,6 +37,20 @@ | |
| 37 | 37 | .return (match) |
| 38 | 38 | .end |
| 39 | 39 | |
| 40 | =item REJECTS(topic) | |
| 41 | ||
| 42 | =cut | |
| 43 | ||
| 44 | .sub 'REJECTS' :method | |
| 45 | .param pmc topic | |
| 46 | .local pmc match | |
| 47 | match = self(topic) | |
| 48 | $P0 = getinterp | |
| 49 | $P1 = $P0['lexpad';1] | |
| 50 | $P1['$/'] = match | |
| 51 | .return 'prefix:!'(match) | |
| 52 | .end | |
| 53 | ||
| 40 | 54 | =item perl() |
| 41 | 55 | |
| 42 | 56 | Return a response to .perl. |