cvs commit: httpd-apreq-2/glue/perl/docs Upload.pod

[randyk]

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;