Changeset 22832 for src

Show
Ignore:
Timestamp:
10/30/08 19:52:04 (2 months ago)
Author:
lwall
Message:

[STD] allow =begin\n=end

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/perl6/STD.pm

    r22824 r22832  
    543543        ||  .*?                                                       {*} #= end 
    544544        ] 
    545     | 'begin' » :: \h* \n .*? 
    546       "\n=" <.unsp>? 'end' » \N*                      {*}       #= anon 
     545    | 'begin' » :: \h* [ $$ || '#' || <.panic: "Unrecognized token after =begin"> ] 
     546        [ .*?  "\n=" <.unsp>? 'end' » \N* || <.panic: "=begin without =end"> ]   {*}       #= anon 
    547547    | ::  
    548548        [ <?before .*? ^^ '=cut' » > <.panic: "Obsolete pod format, please use =begin/=end instead"> ]?