insert space before if

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

diff --git a/lib/WebPAC/Parser.pm b/lib/WebPAC/Parser.pm
index 5d2e72f..d459a90 100644 (file)
--- a/lib/WebPAC/Parser.pm
+++ b/lib/WebPAC/Parser.pm
@@ -333,7 +333,7 @@ sub _parse_source {
 
                        $Element->isa('PPI::Token::Word') or return '';
 
-                       if ( $Element->content eq 'sub' ) {
+                       if ( $Element->content =~ m{^(sub|if)$} ) {
                                # repair demage done by prune of whitespace
                                $Element->insert_after( PPI::Token::Whitespace->new(' ') );
                                return '';

diff --git a/t/conf/normalize/sub.pl b/t/conf/normalize/sub.pl
index 62dec98..44acfce 100644 (file)
--- a/t/conf/normalize/sub.pl
+++ b/t/conf/normalize/sub.pl
@@ -17,5 +17,5 @@ sub test($) {
 }
 
 foreach my $a ( 1,2,3 ) {
-       test($a);       
+       test($a) if length($a) > 0;
 }