From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Fri, 29 Sep 2006 18:55:31 +0000 (+0000)
Subject:  r1038@llin:  dpavlin | 2006-09-29 14:27:45 +0200
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=c0010b083e4e3a4bcd4018f77f264096e62f917e;p=webpac2

 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
--- 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
--- 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') },