Changeset 22231 for src/perl6

Show
Ignore:
Timestamp:
09/13/08 00:45:21 (3 months ago)
Author:
lwall
Message:

[STD] allow for =begin END et al. without balancing =end

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/perl6/STD.pm

    r22177 r22231  
    531531    ^^ '=' <.unsp>? 
    532532    [ 
    533     | 'begin' \h+ <identifier> :: .*? 
    534       "\n=" <.unsp>? 'end' \h+ $<identifier> » \N*         {*}         #= tagged 
     533    | 'begin' \h+ <identifier> :: 
     534        [ 
     535        ||  .*? "\n=" <.unsp>? 'end' \h+ $<identifier> » \N*          {*} #= tagged 
     536        ||  .*?                                                       {*} #= end 
     537        ] 
    535538    | 'begin' » :: \h* \n .*? 
    536       "\n=" <.unsp>? 'end' » \N*                      {*}         #= anon 
     539      "\n=" <.unsp>? 'end' » \N*                      {*}       #= anon 
    537540    | ::  
    538541        [ <?before .*? ^^ '=cut' » > <.panic: "Obsolete pod format, please use =begin/=end instead"> ]? 
    539         \N*                                           {*}         #= misc 
     542        \N*                                           {*}       #= misc 
    540543    ] 
    541544} 
    … …  
    41794182} 
    41804183 
    4181 ## vim: expandtab sw=4 syntax=perl6 
     4184## vim: expandtab sw=4 ft=perl6