r1038@llin: dpavlin | 2006-09-29 14:27:45 +0200

 remove comments from normalize rules when parsing

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@724 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/lib/WebPAC/Parser.pm b/lib/WebPAC/Parser.pm
index 28d23fd..b7f8870 100644 (file)
--- a/lib/WebPAC/Parser.pm
+++ b/lib/WebPAC/Parser.pm
@@ -249,6 +249,7 @@ sub _parse_lookups {
        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

diff --git a/t/conf/normalize/foo.pl b/t/conf/normalize/foo.pl
index 2cced90..706481f 100644 (file)
--- a/t/conf/normalize/foo.pl
+++ b/t/conf/normalize/foo.pl
@@ -1,3 +1,5 @@
+# example of comment
+
 marc('777','v',
        lookup(
                sub { '1st-1' . rec('000') },