[Http-webtest-commits] HTTP-WebTest-Recorder/lib/HTTP/WebTest Recorder.pm,1.6,1.7

[Ilya M. <m_...@us...>]

Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest
In directory sc8-pr-cvs1:/tmp/cvs-serv13917

Modified Files:
	Recorder.pm 
Log Message:
Get rid of perl undefined warning


Index: Recorder.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Recorder.pm	13 Feb 2003 11:26:30 -0000	1.6
--- Recorder.pm	22 Feb 2003 14:36:41 -0000	1.7
***************
*** 74,78 ****
          if($self->filter->{header}) {
              while(my($header, $regexp) = each %{$self->filter->{header}}) {
!                 $is_recording &&= $response->header($header) =~ $regexp;
              }
          }
--- 74,79 ----
          if($self->filter->{header}) {
              while(my($header, $regexp) = each %{$self->filter->{header}}) {
!                 $is_recording &&= $response->header($header) =~ $regexp
!                     if defined $response->header($header);
              }
          }