perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/t/response/TestApache cgihandler.pm read.pm
Date Fri, 07 Nov 2003 08:55:32 GMT
stas        2003/11/07 00:55:32

  Modified:    t/response/TestApache cgihandler.pm read.pm
  Log:
  fix copy-n-paste (s/ct/cl/ as in content-length)
  
  Revision  Changes    Path
  1.8       +3 -3      modperl-2.0/t/response/TestApache/cgihandler.pm
  
  Index: cgihandler.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestApache/cgihandler.pm,v
  retrieving revision 1.7
  retrieving revision 1.8
  diff -u -u -r1.7 -r1.8
  --- cgihandler.pm	11 Apr 2002 11:08:44 -0000	1.7
  +++ cgihandler.pm	7 Nov 2003 08:55:32 -0000	1.8
  @@ -16,12 +16,12 @@
       $ENV{FOO} = 2;
   
       if ($r->method_number == Apache::M_POST) {
  -        my $ct = $r->headers_in->get('content-length');
  +        my $cl = $r->headers_in->get('content-length');
           my $buff;
   #XXX: working around a bug in ithreads Perl
   #that would cause modules/cgi #3 to fail
  -#        read STDIN, $buff, $ct;
  -        read 'STDIN', $buff, $ct;
  +#        read STDIN, $buff, $cl;
  +        read 'STDIN', $buff, $cl;
           print $buff;
       }
       else {
  
  
  
  1.4       +2 -2      modperl-2.0/t/response/TestApache/read.pm
  
  Index: read.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestApache/read.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -u -r1.3 -r1.4
  --- read.pm	17 Dec 2002 07:15:46 -0000	1.3
  +++ read.pm	7 Nov 2003 08:55:32 -0000	1.4
  @@ -14,12 +14,12 @@
       my $r = shift;
       $r->content_type('text/plain');
   
  -    my $ct = $r->headers_in->get('content-length');
  +    my $cl = $r->headers_in->get('content-length');
       my $buffer = "";
       my $bufsiz = $r->args || BUFSIZ;
   
       my $offset = 0;
  -    while (my $remain = $ct - $offset) {
  +    while (my $remain = $cl - $offset) {
           my $len = $remain >= $bufsiz ? $bufsiz : $remain;
           my $read = $r->read($buffer, $len, $offset);
           if ($read != $len) {
  
  
  

Mime
View raw message