[Http-webtest-commits] CVS: HTTP-WebTest/lib/HTTP/WebTest/Plugin Click.pm,1.12,1.13

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

Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Plugin
In directory usw-pr-cvs1:/tmp/cvs-serv24055

Modified Files:
	Click.pm 
Log Message:
Minor style fixes


Index: Click.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Plugin/Click.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** Click.pm	24 Jul 2002 21:16:33 -0000	1.12
--- Click.pm	15 Aug 2002 17:21:08 -0000	1.13
***************
*** 190,195 ****
  	    my $name = $token->[1]{name} || '';
  	    my $value = $token->[1]{value} || '';
! 	    next if $type !~ /^submit$/i;
! 	    next if $name !~ /$pattern/i and $value !~ /$pattern/i;
  
  	    # stop searching
--- 190,195 ----
  	    my $name = $token->[1]{name} || '';
  	    my $value = $token->[1]{value} || '';
! 	    next unless lc($type) eq 'submit';
! 	    next unless $name =~ /$pattern/i or $value =~ /$pattern/i;
  
  	    # stop searching