develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r33591 - branches/pdd22io_part2/t/pmc

From:
allison
Date:
December 6, 2008 23:17
Subject:
[svn:parrot] r33591 - branches/pdd22io_part2/t/pmc
Message ID:
20081207071736.C1BD7CB9AF@x12.develooper.com
Author: allison
Date: Sat Dec  6 23:17:35 2008
New Revision: 33591

Modified:
   branches/pdd22io_part2/t/pmc/filehandle.t

Log:
[pdd22io] Account for final readline, with 0 bytes.


Modified: branches/pdd22io_part2/t/pmc/filehandle.t
==============================================================================
--- branches/pdd22io_part2/t/pmc/filehandle.t	(original)
+++ branches/pdd22io_part2/t/pmc/filehandle.t	Sat Dec  6 23:17:35 2008
@@ -265,6 +265,7 @@
     if \$I0 goto end_read_loop
 
     test_line = readline filehandle
+    if test_line == "" goto end_read_loop
     test_line = chomp( test_line )
     \$I1 = test_line
     if \$I1 == counter goto read_loop



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About