[Bug 221113] readline function in perl does not correctly set $!

[bugzilla at redhat.com]

Please do not reply directly to this email. All additional
comments should be made in the comments box of this bug.


https://bugzilla.redhat.com/show_bug.cgi?id=221113





--- Comment #8 from Wojciech Pilorz <wpilorz at gmail.com>  2009-05-25 04:22:13 EDT ---
Running tests again on Fedora 10, perl-5.10.0-68.fc10.i386,

gives the following:

$ env LANG=C bash readline_test.bash                                            
 __ running readline_test.pl for stdin=1234,CHUNKSIZE=-1,PERLIO=perlio...       
 INFO: $/ will be set to undef                                                  
Bad file descriptor at readline_test.pl line 30, <F> chunk 1.                   
 __ running readline_test.pl for stdin=1234,CHUNKSIZE=-1,PERLIO=stdio...        
 INFO: $/ will be set to undef                                                  
Bad file descriptor at readline_test.pl line 30, <F> chunk 1.                   
 __ running readline_test.pl for stdin=1234,CHUNKSIZE=0,PERLIO=perlio...        
 INFO: $/ will not be set                                                       
Bad file descriptor at readline_test.pl line 30, <F> line 1.                    
 __ running readline_test.pl for stdin=1234,CHUNKSIZE=0,PERLIO=stdio...         
 INFO: $/ will not be set                                                       
Bad file descriptor at readline_test.pl line 30, <F> line 1.
 __ running readline_test.pl for stdin=1234,CHUNKSIZE=2,PERLIO=perlio...
 INFO: $/ will be set to 2
 INFO: File /dev/stdin has been read, nbytes = 4
 __ running readline_test.pl for stdin=1234,CHUNKSIZE=2,PERLIO=stdio...
 INFO: $/ will be set to 2
 INFO: File /dev/stdin has been read, nbytes = 4
 __ running readline_test.pl for stdin=1234,CHUNKSIZE=1k,PERLIO=perlio...
 INFO: $/ will be set to 1024
Bad file descriptor at readline_test.pl line 30, <F> chunk 1.
 __ running readline_test.pl for stdin=1234,CHUNKSIZE=1k,PERLIO=stdio...
 INFO: $/ will be set to 1024
 INFO: File /dev/stdin has been read, nbytes = 4
 __ running readline_test.pl for stdin=1234\n,CHUNKSIZE=-1,PERLIO=perlio...
 INFO: $/ will be set to undef
Bad file descriptor at readline_test.pl line 30, <F> chunk 1.
 __ running readline_test.pl for stdin=1234\n,CHUNKSIZE=-1,PERLIO=stdio...
 INFO: $/ will be set to undef
Bad file descriptor at readline_test.pl line 30, <F> chunk 1.
 __ running readline_test.pl for stdin=1234\n,CHUNKSIZE=0,PERLIO=perlio...
 INFO: $/ will not be set
 INFO: File /dev/stdin has been read, nbytes = 5
 __ running readline_test.pl for stdin=1234\n,CHUNKSIZE=0,PERLIO=stdio...
 INFO: $/ will not be set
Bad file descriptor at readline_test.pl line 30, <F> line 1.
 __ running readline_test.pl for stdin=1234\n,CHUNKSIZE=2,PERLIO=perlio...
 INFO: $/ will be set to 2
Bad file descriptor at readline_test.pl line 30, <F> chunk 3.
 __ running readline_test.pl for stdin=1234\n,CHUNKSIZE=2,PERLIO=stdio...
 INFO: $/ will be set to 2
 INFO: File /dev/stdin has been read, nbytes = 5
 __ running readline_test.pl for stdin=1234\n,CHUNKSIZE=1k,PERLIO=perlio...
 INFO: $/ will be set to 1024
Bad file descriptor at readline_test.pl line 30, <F> chunk 1.
 __ running readline_test.pl for stdin=1234\n,CHUNKSIZE=1k,PERLIO=stdio...
 INFO: $/ will be set to 1024
 INFO: File /dev/stdin has been read, nbytes = 5


and then testing broken data (truncated ISO filesystem):

$env CHUNKSIZE=-1 PERLIO=perlio perl -w readline_test.pl /mnt/looptest/ftest01  
 INFO: $/ will be set to undef                                                  
Bad file descriptor at readline_test.pl line 30, <F> chunk 1.                   
$env CHUNKSIZE=-1 PERLIO=stdio perl -w readline_test.pl /mnt/looptest/ftest01   
 INFO: $/ will be set to undef                                                  
Input/output error at readline_test.pl line 30, <F> chunk 1.                    
$env CHUNKSIZE=0 PERLIO=perlio perl -w readline_test.pl /mnt/looptest/ftest01   
 INFO: $/ will not be set                                                       
Bad file descriptor at readline_test.pl line 30, <F> line 294486.               
$env CHUNKSIZE=0 PERLIO=stdio perl -w readline_test.pl /mnt/looptest/ftest01    
 INFO: $/ will not be set                                                       
Input/output error at readline_test.pl line 30, <F> line 294486.                
$env CHUNKSIZE=2k PERLIO=perlio perl -w readline_test.pl /mnt/looptest/ftest01  
 INFO: $/ will be set to 2048                                                   
Input/output error at readline_test.pl line 30, <F> chunk 2534.                 
$env CHUNKSIZE=4k PERLIO=perlio perl -w readline_test.pl /mnt/looptest/ftest01  
 INFO: $/ will be set to 4096                                                   
Input/output error at readline_test.pl line 30, <F> chunk 1267.                 
$env CHUNKSIZE=8k PERLIO=perlio perl -w readline_test.pl /mnt/looptest/ftest01  
 INFO: $/ will be set to 8192                                                   
Bad file descriptor at readline_test.pl line 30, <F> chunk 634.                 
$env CHUNKSIZE=32k PERLIO=perlio perl -w readline_test.pl /mnt/looptest/ftest01 
 INFO: $/ will be set to 32768                                                  
Bad file descriptor at readline_test.pl line 30, <F> chunk 159.

-- 
Configure bugmail: https://bugzilla.redhat.com/userprefs.cgi?tab=email
------- You are receiving this mail because: -------
You are on the CC list for the bug.