httpd-apreq-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From ran...@apache.org
Subject cvs commit: httpd-apreq-2/glue/perl/docs Upload.pod
Date Sat, 28 Aug 2004 06:06:18 GMT
randyk      2004/08/27 23:06:18

  Modified:    glue/perl/docs Upload.pod
  Log:
  fix \r issues on Win32 which caused failures in the glue/perl/docs/Upload.t
  tests.
  
  Revision  Changes    Path
  1.8       +9 -1      httpd-apreq-2/glue/perl/docs/Upload.pod
  
  Index: Upload.pod
  ===================================================================
  RCS file: /home/cvs/httpd-apreq-2/glue/perl/docs/Upload.pod,v
  retrieving revision 1.7
  retrieving revision 1.8
  diff -u -r1.7 -r1.8
  --- Upload.pod	5 Aug 2004 18:11:46 -0000	1.7
  +++ Upload.pod	28 Aug 2004 06:06:18 -0000	1.8
  @@ -12,8 +12,15 @@
       $req->body_status(0);
       $req->parse;
       $req->body->add($u);
  -    $data = do { local (@ARGV, $/) = __FILE__; <> };
  +    open(my $fh, __FILE__) or die $!;
  +    binmode $fh;
  +    {
  +      local $/;
  +      $data = <$fh>;
  +    }
  +    close $fh;
       ok length $data == -s __FILE__;
  +    $data =~ s{\r}{}g;
   
   
   
  @@ -248,6 +255,7 @@
   
   =for example_testing
       is $size, length $contents;
  +    $contents =~ s{\r}{}g;
       is $contents, $data;
   
   
  
  
  

Mime
View raw message