Mailing-List: contact modperl-cvs-help@perl.apache.org; run by ezmlm
Precedence: bulk
Reply-To: dev@perl.apache.org
Date: 15 Apr 2003 01:17:48 -0000
Message-ID: <20030415011748.93821.qmail@icarus.apache.org>
From: stas@apache.org
To: modperl-2.0-cvs@apache.org
Subject: cvs commit: modperl-2.0/t/response/TestAPR perlio.pm

stas        2003/04/14 18:17:48

  Modified:    t/response/TestAPR perlio.pm
  Log:
  comment fix
  
  Revision  Changes    Path
  1.18      +3 -2      modperl-2.0/t/response/TestAPR/perlio.pm
  
  Index: perlio.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/perlio.pm,v
  retrieving revision 1.17
  retrieving revision 1.18
  diff -u -r1.17 -r1.18
  --- perlio.pm	8 Apr 2003 02:05:34 -0000	1.17
  +++ perlio.pm	15 Apr 2003 01:17:48 -0000	1.18
  @@ -48,7 +48,7 @@
           or die "Cannot open $file for writing: $!";
       ok ref($fh) eq 'GLOB';
   
  -    t_debug "write to a file:\n$expected";
  +    t_debug "write to a file:\n$expected\n";
       print $fh $expected_all;
       close $fh;
   
  @@ -152,11 +152,12 @@
           ok t_cmp(0,
                    int eof($fh), # returns false, not 0
                    "not end of file");
  -        # go to the end and read
  +        # go to the end and read so eof will return 1
           seek $fh, 0, Fcntl::SEEK_END();
           my $received = <$fh>;
   
           t_debug($received);
  +
           ok t_cmp(1,
                    eof($fh),
                    "end of file");