skip empty lines and nicer output

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

diff --git a/lib/WebPAC/Input/ISI.pm b/lib/WebPAC/Input/ISI.pm
index 196e36e..86d39b4 100644 (file)
--- a/lib/WebPAC/Input/ISI.pm
+++ b/lib/WebPAC/Input/ISI.pm
@@ -146,8 +146,10 @@ sub new {
                        $log->logdie("expected blank like in ",$arg->{path}, " +$.: $line") unless ( $line eq '' );
                } elsif ( $line eq 'EF' ) {
                        last;
+               } elsif ( $line =~ m{^(\S\S)\s*$} ) {
+                       warn "# $arg->{path} +$. empty |$line|\n";
                } else {
-                       $log->logdie("can't parse +$. $arg->{path} : $line");
+                       $log->logdie("can't parse +$. $arg->{path} |$line|");
                }
 
                if ( defined $v ) {