[Http-webtest-commits] HTTP-WebTest/lib/HTTP/WebTest SelfTest.pm,1.8,1.9

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

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

Modified Files:
	SelfTest.pm 
Log Message:
Minor code cleanups


Index: SelfTest.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/SelfTest.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** SelfTest.pm	3 Jul 2003 11:22:01 -0000	1.8
--- SelfTest.pm	10 Sep 2003 11:08:44 -0000	1.9
***************
*** 384,394 ****
      my $credentials = shift;
  
!     return () unless defined $credentials;
      $credentials =~ m|^ \s* Basic \s+ ([A-Za-z0-9+/=]+) \s* $|x;
      my $basic_credentials = $1;
!     return () unless defined $basic_credentials;
!     my $user_pass = decode_base64($basic_credentials);
!     my($user, $password) = $user_pass =~ /^ (.*) : (.*) $/x;
!     return () unless defined $password;
  
      return ($user, $password);
--- 384,393 ----
      my $credentials = shift;
  
!     return unless defined $credentials;
      $credentials =~ m|^ \s* Basic \s+ ([A-Za-z0-9+/=]+) \s* $|x;
      my $basic_credentials = $1;
!     return unless defined $basic_credentials;
!     my($user, $password) = split ':', decode_base64($basic_credentials), 2;
!     return unless defined $password;
  
      return ($user, $password);