Revision 27960
- Date:
- 2009/08/11 17:43:28
- Files:
Legend:
- Added
- Removed
- Modified
-
src/perl6/STD.pm
460 460 | \h+ {*} #= hwhite 461 461 | <?before '='> ^^ <.pod_comment> {*} #= pod 462 462 | \h* '#' [ 463 | <?opener> 464 [ <!after ^^ . > || <.panic: "Can't use embedded comments in column 1"> ] 463 | '`'<?opener> 465 464 <.quibble($¢.cursor_fresh( %*LANG<Q> ))> {*} #= embedded 465 | <?opener> <.worry: "Embedded comment without backtick is deprecated"> 466 <.quibble($¢.cursor_fresh( %*LANG<Q> ))> {*} #= embedded 466 467 | {} \N* {*} #= end 467 468 ] 468 469 ] … … 4956 4957 token assertion:sym«>» { <sym> <rx> } 4957 4958 4958 4959 token rx { 4959 #[:lang(self.unbalanced(')')) <nibbler>] 4960 # [:lang(self.unbalanced(')')) <nibbler>] 4960 4961 <nibbler> 4961 4962 [ <?before ')'> || <.panic: "Unable to parse Perl 5 regex; couldn't find right parenthesis"> ] 4962 4963 }