remove comments from normalize rules when parsing
git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@724
07558da8-63fa-0310-ba24-
9fe276d99e06
my $Document = PPI::Document->new( \$source ) || $log->logdie("can't parse source:\n", $self->{source});
$Document->prune('PPI::Token::Whitespace');
my $Document = PPI::Document->new( \$source ) || $log->logdie("can't parse source:\n", $self->{source});
$Document->prune('PPI::Token::Whitespace');
+ $Document->prune('PPI::Token::Comment');
#$Document->prune('PPI::Token::Operator');
# Find all the named subroutines
#$Document->prune('PPI::Token::Operator');
# Find all the named subroutines
marc('777','v',
lookup(
sub { '1st-1' . rec('000') },
marc('777','v',
lookup(
sub { '1st-1' . rec('000') },