/[webpac2]/trunk/lib/WebPAC/Parser.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WebPAC/Parser.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1265 by dpavlin, Sun Aug 9 20:10:21 2009 UTC revision 1277 by dpavlin, Wed Aug 19 16:24:43 2009 UTC
# Line 333  sub _parse_source { Line 333  sub _parse_source {
333    
334                          $Element->isa('PPI::Token::Word') or return '';                          $Element->isa('PPI::Token::Word') or return '';
335    
336                          if ( $Element->content eq 'sub' ) {                          if ( $Element->content =~ m{^(sub|if)$} ) {
337                                  # repair demage done by prune of whitespace                                  # repair demage done by prune of whitespace
338                                  $Element->insert_after( PPI::Token::Whitespace->new(' ') );                                  $Element->insert_after( PPI::Token::Whitespace->new(' ') );
339                                  return '';                                  return '';
Legend:
Removed from v.1265  
changed lines
  Added in v.1277
  ViewVC Help
Powered by ViewVC 1.1.26