[Http-webtest-commits] HTTP-WebTest-Plugin-XMLReport/t/lib/HTTP/WebTest/Plugin FileRequest.pm,1.1.1.1,1.2

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

Update of /cvsroot/http-webtest/HTTP-WebTest-Plugin-XMLReport/t/lib/HTTP/WebTest/Plugin
In directory sc8-pr-cvs1:/tmp/cvs-serv24172/t/lib/HTTP/WebTest/Plugin

Modified Files:
	FileRequest.pm 
Log Message:
Make compatible with HTTP::WebTest 2.00


Index: FileRequest.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Plugin-XMLReport/t/lib/HTTP/WebTest/Plugin/FileRequest.pm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** FileRequest.pm	30 Oct 2002 21:25:49 -0000	1.1.1.1
--- FileRequest.pm	26 Dec 2002 20:27:19 -0000	1.2
***************
*** 3,20 ****
  use URI::file;
  
! # Utility package to allow opening a a file from the local file system
!  
  use base qw(HTTP::WebTest::Plugin);
  
  sub prepare_request {
      my $self = shift;
!     my $url = $self->test_param('url'); 
      my $path = URI::file->new_abs($url);
!  
      # get user agent object
      my $user_agent = $self->webtest->user_agent;
  
      # get request object
!     my $request = $self->webtest->last_request;
      $request->uri($path);
      $request->method('GET');
--- 3,20 ----
  use URI::file;
  
! # Utility package to allow opening a file from the local file system
! 
  use base qw(HTTP::WebTest::Plugin);
  
  sub prepare_request {
      my $self = shift;
!     my $url = $self->test_param('url');
      my $path = URI::file->new_abs($url);
! 
      # get user agent object
      my $user_agent = $self->webtest->user_agent;
  
      # get request object
!     my $request = $self->webtest->current_request;
      $request->uri($path);
      $request->method('GET');