r1894@llin: dpavlin | 2009-05-29 21:38:05 +0200

 don't remove whitespaces so we can have more comprex perl
 in normalize istread of mungling it becaise of removed spaces

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

diff --git a/lib/WebPAC/Parser.pm b/lib/WebPAC/Parser.pm
index bdd79ce..c21a9e8 100644 (file)
--- a/lib/WebPAC/Parser.pm
+++ b/lib/WebPAC/Parser.pm
@@ -312,7 +312,7 @@ sub _parse_source {
 
        my $Document = PPI::Document->new( \$source ) || $log->logdie("can't parse source:\n", $self->{source});
 
-       $Document->prune('PPI::Token::Whitespace');
+       #$Document->prune('PPI::Token::Whitespace');
        $Document->prune('PPI::Token::Comment');
        #$Document->prune('PPI::Token::Operator');