--- trunk/lib/WebPAC/Parser.pm	2006/09/29 12:27:36	720
+++ trunk/lib/WebPAC/Parser.pm	2006/09/29 18:55:31	724
@@ -249,6 +249,7 @@
 	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