httpd-apreq-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From j...@apache.org
Subject cvs commit: httpd-apreq-2/glue/perl/t/response/TestApReq request.pm
Date Fri, 02 Jul 2004 17:37:07 GMT
joes        2004/07/02 10:37:07

  Modified:    glue/perl/t/apreq request.t
               glue/perl/t/response/TestApReq request.pm
  Log:
  Rename tempfile tempname to match docs
  
  Revision  Changes    Path
  1.12      +1 -1      httpd-apreq-2/glue/perl/t/apreq/request.t
  
  Index: request.t
  ===================================================================
  RCS file: /home/cvs/httpd-apreq-2/glue/perl/t/apreq/request.t,v
  retrieving revision 1.11
  retrieving revision 1.12
  diff -u -r1.11 -r1.12
  --- request.t	1 Jul 2004 13:20:50 -0000	1.11
  +++ request.t	2 Jul 2004 17:37:07 -0000	1.12
  @@ -20,7 +20,7 @@
                "basic param");
   }
   
  -for my $test (qw/slurp bb_read fh_read tempfile bad;query=string%%/) {
  +for my $test (qw/slurp bb_read fh_read tempname bad;query=string%%/) {
       # upload a string as a file
       my $value = 'DataUpload' x 100_000;
       my $result = UPLOAD_BODY("$location?test=$test", content => $value); 
  
  
  
  1.16      +2 -2      httpd-apreq-2/glue/perl/t/response/TestApReq/request.pm
  
  Index: request.pm
  ===================================================================
  RCS file: /home/cvs/httpd-apreq-2/glue/perl/t/response/TestApReq/request.pm,v
  retrieving revision 1.15
  retrieving revision 1.16
  diff -u -r1.15 -r1.16
  --- request.pm	1 Jul 2004 13:20:50 -0000	1.15
  +++ request.pm	2 Jul 2004 17:37:07 -0000	1.16
  @@ -47,9 +47,9 @@
           return unless $upload->info->{"Content-Type"} eq $upload->type;
           $r->print(<$fh>);
       }
  -    elsif ($test eq 'tempfile') {
  +    elsif ($test eq 'tempname') {
           my $upload = $req->upload("HTTPUPLOAD");
  -        open my $fh, "<", $upload->tempfile or die $!;
  +        open my $fh, "<", $upload->tempname or die $!;
           $r->print(<$fh>);
       }
       elsif ($test eq 'bad') {
  
  
  

Mime
View raw message