From 99f1a2186e06afef92b9a66d09f9a942185fd012 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Thu, 5 Apr 2007 21:53:52 +0000 Subject: [PATCH] fix warning git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@818 07558da8-63fa-0310-ba24-9fe276d99e06 --- lib/WebPAC/Input.pm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lib/WebPAC/Input.pm b/lib/WebPAC/Input.pm index ec0d661..45b3779 100644 --- 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"); -- 2.20.1