fix warning

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

diff --git a/lib/WebPAC/Input.pm b/lib/WebPAC/Input.pm
index ec0d661..45b3779 100644 (file)
--- a/lib/WebPAC/Input.pm
+++ b/lib/WebPAC/Input.pm
@@ -286,6 +286,8 @@ sub open {
 #                              return unless defined($l);
 #                              return $l unless ($rec_regex && $f_nr);
 
+                               return unless ( defined($l) && defined($f_nr) );
+
                                warn "-=> $f_nr ## |$l|\n" if ($debug);
                                $log->debug("-=> $f_nr ## $l");